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MMMSMTR_USER_REQUEST_ PROCESSOR 


3 MODULE mmm$mtr_user_request processor {MMMMUR} ; 
4 
5 
6 { 
7 { PURPOSE: 
& { This moduie contains request processors that deal with interfacing 
9 { job mode mem mgr requests to mem mgr in mtr mode, locking and unlocking 
10 { pages, locking and unlocking segments, and setting segment lengths. 
11 { 
12 
13 
}° 6677 
© 6678 
o 6679 { External procedures referenced by this modute. 
° 6680 
fe) 6681 
Oo 6682 PROCEDURE [XREF] dfp$fetch_page_ status 
© 6683 ( fde_p: gft$locked_file_desc_entry_p; 
Oo 6684 offset: ost$segment_offset; 
Oo 6685 VAR allocate status: gft$page status) ; 
° 6686 
6707 
6708 PROCEDURE [XREF] dmp$fetch_page_status 
6709 ( fde_p: gft$locked_ file _desc_entry_p; 
6710 offset: ost$segment_offset ; 
6711 enforce limits: sft$file_ space_limit_kind; 
6712 allow_allocation: boolean; 
6713 VAR allocate_status: gft$page_ status); 
6714 
fe) 6717 
oO 6718 PROCEDURE [INLINE] dmp$get_disk_file_descriptor_p (fde_p: gft$file_ desc_entry_p; 
o 6719 VAR dfd_p: Admt$disk_file_ descriptor) ; 
ie) 6720 
6758 77 FMT (FORMAT := ON, KEYW :=: UPPER, IDENT := LOWER) 7? 
fe] 6774 
o 6775 PROCEDURE [INLINE] dmp$get_fau_entry (p_dfd: Admt$disk_file descriptor ; 
o 6776 byte_address: amt$file byte address; 
oO 6777 VAR p_fau_entry: Admt$file_allocation_unit) ; 
*) 6778 
6807 
6808 FUNCTION [INLINE] gfp$mtr_convert_job_mode_fde_p (xfde_p: gft$file_desc_entry_p; 
6809 cst_p: Aost$cpu_state_ table): gft$file_desc_entry _p; 
° 6822 
© 6823 PROCEDURE [INLINE] gfp$mtr_get_fde_p (sfid: gft$system_file_identifier; 
° 6824 ijle_p: AjmtS$initiated_job_list_entry; 
o 6825 VAR fde_p: gft$file_desc_entry_p) ; 
© 6826 
.°] 6827 
.¢] 6868 
© 6869 PROCEDURE [INLINE] gfp$mtr_get_locked fde_p (sfid: gft$system_file_identifier; 
Oo 6870 ijle_p: AjmtSinitiated_job_list_entry; 
o 6871 VAR fde_p: gft$locked file _desc_entry_p); 
ce) 6872 
° 6873 
i?) 6986 
o 6987 PROCEDURE [INLINE] gfp$mtr_get_sfid_from_fde_p 
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( fde_p: gft$locked_ file_desc_entry_p; 
VAR sfid: gft$system_file_identifier ; 
VAR ijl_ordinal: jmt$ijl_ordinal); 


PROCEDURE [INLINE] gfp$mtr_unlock_fde_p (fde_p: gft$locked file_desc_entry_p); 


PROCEDURE [INLINE] i#move (source: 4Ace11; 
dest: Acell; 
Jength: O .. 7FFFFFFF(16)); 


VAR 
stri: Astring (65535), 
Str2: Astring (65535); 


IF Yength <> O THEN 


stri :=5 source; 
str2 ::= dest; 
str24 (1, length) := stri4 (1, length); 
#SPOIL (str24); 
IFEND; 


PROCEND i#move; 


PROCEDURE [XREF] i#real_memory_address (p: Ace11; 
VAR rma: integer); 


PROCEDURE [INLINE] jmp$uniock_ajl 
( ijle_p: AjmtS$initiated_job_list_entry) ; 


VAR 
ajlo: jmt$ajil_ordinal; 


tmp$set_lock (tmv$pt1_lock) ; 

ajlo := ijle_p%.ajl_ordinal; 

IF (jmv$aji_pA [ajlo].in_use = jmc$lock_aj1) THEN 
imp$free_ajl_with_lock (ijle_p, jmc$lock_aj1); 

ELSE 
imv$ajil_pA [ajlo].in_use := jmv$ajil_p4 [ajlo].in_use - jmc$lock_ajl; 

IFEND; 

tmp$clear_lock (tmv$pt1_lock) ; 


PROCEND jmpSuntlock_ajl; 


PROCEDURE [XREF] mmp$asid (asti: mmt$ast_index; 
VAR asid: ost$asid); 


PROCEDURE [XREF] mmp$aste_pointer (asid: est$asid; 
VAR aste_p: Ammt$act ive segment_tabie_entry) ; 


PROCEDURE [XREF] mmp$convert_pva (p: Acel1; 
cst _p: Aost$cpu_state tabie; 
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7213 VAR sSva: ost$system_virtual address; 
7214 VAR fde_p: gftS$locked file desc _entry_p; 
7215 VAR aste_p: Ammt$active_ segment _table_entry; 
7216 VAR ste_p: Ammt$segment_descriptor; 
7217 VAR stxe_p: Ammt$segment_ descriptor extended) ; 
7218 
oO 7221 
Oo 7222 PROCEDURE [XREF] mmp$delete_pt_entry 
o 7223 ( pfti: mmt$page_frame_index; 
o 7224 unlink _page_from_segment: boolean); 
oO 7225 
71228 
7229 PROCEDURE [INLINE] mmp$fetch_pfti_array_size 
7230 (VAR pfti_size: integer); 
7231 
o 7237 
oO 7238 PROCEDURE [INLINE] mmp$find_next_pft i 
o 7239 (VAR xpfti: mmt$page_frame_index) ; 
o 7240 
7258 
7259 PROCEDURE [INLINE] mmp$get_max_sdt_sdtx_pointer 
T260 ( xcb_ p: Aost$execution_control_biock; 
7261 VAR sdt_p: mmt$max_sdt_p; 
7262 VAR sdtx_p: mmt$max_sdtx_p); 
7263 
Oo %TI272 
ce) 7273 { This procedure verifies that the asti stored in the file descriptor entry is still being used 
ce) 7274 { the same job for the same file. If the asti is ok, it is returned; otherwise O is returned. 
o 7275 
Oo T7276 PROCEDURE [INLINE] mmp$get_verify_asti_in_fde 
o 7277 ( fde_ p: gft$locked_file_desc_entry _p; 
oO 7278 sfid: gft$system_ file identifier ; 
o 7279 ijlo: jmt$ijl_ordinal; 
o 7280 VAR asti: mmt$ast_ index) ; 
o 7281 
7233 
7294 PROCEDURE [XREF] mmp$initialize_find_next_pfti (xsva: ost$system_virtual address; 
7295 length: ost$segment_ length; 
7296 end_ point_option: (include partial pages, exclude partiail_pages); 
7297 page selection criteria: mmt$page_ selection_criteria; 
72398 aste_p: Ammt$active_segment_table_entry; 
7299 VAR xpfti: mmt$page_ frame_index) ; 
7300 
o 7303 PROCEDURE [XREF] mmp$Smm_free_pages (sSva: ost$system_virtual_address; 
o 7304 length: ost$segment_length; 
oO 7305 aste_ p: Ammt$active segment _table_entry; 
° 7306 free asid: boolean; 
oO 7307 VAR count: integer); 
o 7308 
o <7T308 
7312 PROCEDURE [XREF] mmp$mm_write_modified_ pages 
7313 ( Ssva: ost$system_virtual_address; 
7314 length: ost$segment_ilength; 
7315 fde_p: gft$locked file _desc_entry_p; 
7316 aste_p: Ammt$active_segment_tabie_entry; 
7317 iotype: iotS$io_ function; 
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init mew _io: boolean; 
remove _ page: boolean; 
io_id: mmt$io_identifier ; 
VAR io count: mmt$active_io_count; 
VAR io_already_ active: boolean; 
VAR last_written_pfti: mmt$page_frame_index ; 
VAR wmp_status: mmt$write_ modified pages status); 


PROCEDURE [INLINE] mmp$purge_alil_cache_map; 


VAR 
nulil_sva: © .. OF FFFFFFFFFFF( 16) ; 


IF mmv$multiple_ caches OR mmv$multiple_page_maps THEN 
mmp$purge_ali_cache_map_proc; 
ELSE 
#purge buffer (osc$purge_all_cache, nwulil_sva); 
#purge buffer (osc$purge_all_page_seg map, nulil_sva); 
IFEND; 


PROCEND ; 


PROCEDURE [XREF] mmp$process_wmp_status (wmp_status: mmt$write_modified_pages_status; 
last_written_pfti: mmt$page_frame_index; 
rb_wait: ost$wait; 
VAR rb_init_new_io: boolean; 
VAR rb_status: syt$monitor_status) ; 


PROCEDURE [XREF] mmp$relink_page_frame (pfti: mmt$page_frame_index; 
queue_id: mmt$page_frame_queue_ id) ; 


PROCEDURE [XREF] mmp$remove_pages_working set (Sva: ost$system_virtual_address; 
length: ost$segment_iength; 
aste_ p: Ammt$active_ segment _table_entry; 
VAR count: integer); 


PROCEDURE [XREF] mmp$xtask_pva_to_sva (pva: Acel11; 
VAR sva: ost$system_virtual_address; 
VAR status: syt$monitor_ status); 


PROCEDURE [XREF] mmp$verify_ pva (pointer_to_pva: Acell; 
access: mmt$segment_access_ type; 
VAR status: syt$monitor_ status) ; 
PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state_ table); 
PROCEDURE [INLINE] mtp$set_status_abnormal (identifier: string (2); 


condition: osc$max_status_ condition _number + 1. .. OF FFFFFFFFF(16) ; 
VAR status: syt$monitor_status) ; 


External variables referenced by this module. 


by 
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{Pointer to the Active Segment Table - (AST).} 


VAR 
mmv$ast_p: [XREF] AmmtSactive_segment_ table; 


{The following variable indicates if the configuration consists of multiple 
{caches that are not hardware connected for unified cache purging - 


{purge is required each processor must purge its own cache. 


VAR 
mmv$multiple_ caches: [XREF] boolean; 
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ie, if a cache 


{The following variable indicates if the configuration consists of multiple 
{page MAPS that are not hardware connected for unified map purging 


{if a page map purge is required each processor must purge 


VAR 
mmv$multiple page _ maps: [XREF] boolean; 


{Define pointer to array for holding PFTI lists. This array 
{PFTIs of pages belonging to a segment. 


VAR 
mmv$pfti_array_p: [XREF] AmmtS$pfti_array; 


TYPE 
mmt$pfti_array = RECORD 
pfti_first: © .. osc$max_page_frames, 
pfti_index: © .. asc$max_page_frames, 
last_pfti_index: © .. osc$max_page_frames, 
pftis: ARRAY [0 .. *] of mmt$page_frame_index, 
RECEND ; 


{Pointer to the ‘PAGE FRAME TABLE’ (PFT) 
VAR 
mmv$pft_p: [XREF] Ammt$page_frame_table; 
{ Global Page Queue List array. 


VAR 
mmv$gpqi: [XREF] mmt$global_page_queue_ list; 


{Pointer to the system PAGE TABLE (PT). 


VAR 
mmv$pt_p: [XREF] Aost$page table; 


is used 


ie, 


its own map. 


in monitor 


PROCEDURE [XREF] tmp$dequeue task (VAR queue_link: tmt$task_queue_ link; 


VAR taskid: ost$global_task_id)j; 
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PROCEDURE [INLINE] tmp$get_taskid_from_task_queue 
( task_queuve: tmt$task_queue_ link; 
VAR taskid: ost$global_task_id); 


PROCEDURE [XREF] tmp$mtr_begin_lock_activity 
( xcb_p: Aost$execution_control block; 
activity: 1 .. 256); 


PROCEDURE [XREF] tmp$mtr_end_lock_activity 
( cSt_p: Aost$cpu_state_table; 
activity: 1 .. 256; 
VAR xcb_p: Aost$execution_control block) ; 


PROCEDURE [XREF] tmp$get_xcb_p (task_id: ost$global_task_id; 


VAR xcbh_p: Aost$execution control block; 
VAR ijle_p: Ajmt$initiated _job_list_entry) ; 


PROCEDURE [XREF] tmp$queue task (taskid: ost$global_task_id; 


task_status: tmt$task_ status; 
VAR queue_link: tmt$task_queue_ link) ; 


VAR 
tmv$pti_p: [XREF] Atmt$primary task_1list; 
{System page size. } 


VAR 
osv$page_size: [XREF] ost$page_size; 


{ Precedures local to this module. 


for holding lists 
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PROCEDURE convert _ sva_to_pfte_p 
( sva: ost$system_virtual_address; 
VAR pfte_p: Ammt$page_frame_table_entry; 
VAR status: syt$monitor_ status) ; 
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This procedure returns a pointer to the page frame table entry for a specified pva. 


VAR 
count: 1... 32, 
hash_Ssva_param2: integer, {Kliudge for compiler bug 
pfti: mmt$page_frame_index, 
pti: ost$page table_index; 


#HASH_ SVA (Sva, hash_Sva_param2, count, status.normal); 


pti :: hash_sva_param2; {Kludge for compiler bug 
IF status.normal = FALSE THEN 
status.condition : = mme$page_not_in_page_table; 
RETURN; 
IFEND; 
pfti := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size; 
status.normal := mmv$pt_p4 [pti] .v; 
IF status.nmormal = FALSE THEN 
status.condition := mme$not_valid_in_page_table; 
IFEND; 
pfte_p := Ammv$pft_p% [pFftil; 


PROCEND convert _sva_to_pfte_p; 
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PROCEDURE lock_pages 
( sva: ost$system_virtual_address; 
length: ost$byte_ count ; 
VAR status: syt$monitor_status) ; 


This procedure processes the lock pages monitor function. 


VAR 
initial _lock_offset: ost$segment_offset, 
leck_ length: integer, 
leck_sva: ost$system_virtual_address, 
pfte_ p: Ammt$page_frame_table_entry, 
unlock status: syt$monitor_ status; 


status.normal := TRUE; 

IF JIength = O THEN 
RETURN; 

IFEND; 


IF ((length + sva.offset) > UPPERVALUE [(ost$segment_offset)) THEN 
mtp$set_ status abnormal (’MM’, mme$lock_unlock_invalid_length, status) ; 


RETURN; 
IFEND; 
lock_length := length + (sva.offset MOD osv$page_size) ; 
lock sva := sva; 
lock sva.offset := lock _sva.offset - (lock sva.offset MOD osv$page_size) ; 
initial _lock_offset := lock sva.offset; 


Lock page frame table entries until all specified entries locked or encounter a page frame 


1989-08-21 


table entry that is already locked. If this happens unlock all pages locked so far and 


return error status. 


/lock_pages_loop/ 
WHILE TRUE DO 
convert_sva_to_pfte_p (lock _sva, pfte_p, status) ; 
IF status.nmormal = FALSE THEN 
unlock pages (Ssva, lock sva.offset - initial_lock_offset, unlock _ status); 
RETURN; 
IFEND; 


IF pfte_ pA. locked page <> mmc$ip_not_locked THEN 
unlock_pages (Sva, lock sva.offset - initial _lock_offset, status); 
mtp$set_ status _ abnormal (’MM’, mme$page_already locked, status); 
RETURN; 

IFEND; 


pfte pA. locked page :=* mmc$ip_aging_ leck; 
leck length :: lock length - osv$page_ size; 
IF lock _ length <= O THEN > 
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EXIT /lock_pages_loop/; 
IFEND ; 


lock _ sva.offset := lock sva.offset + osv$page size; 
WHILEND /1lock_pages_loop/; 


PROCEND lock pages; 
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PROCEDURE untlock_pages 
( sva: ost$system_virtual_ address; 
length: ost$byte_count ; 
VAR status: syt$monitor_status) ; 


This procedure processes the unlock pages monitor function. 


| ae Ml ate ate | 


VAR 
unlock _ length: integer, 
unlock_sva: ost$system_virtual_address, 
pfte_ p: Ammt$page frame_tabie_ entry; 


status.normal :=: TRUE; 

IF length = © THEN 
RETURN; 

IFEND; 


IF ((sva.offset + length) > UPPERVALUE (ost$segment_offset))} THEN 
mtp$set_status_abnormal (’MM’, mme$lock_unlock_invalid_length, status); 


RETURN; 
IFEND; 
unlock Sva := sva; 
unlock _ sva.offset := unlock sva.offset - (unlock sva.offset MOD osv$page_ size); 
unlock length := length + (sva.offset MOD osv$page_size); 


{ Unlock page frame table entries specified by pva and length. 


/unlock_page_frames/ 
WHILE TRUE DO 
convert sva_to_pfte_p {unlock _sva, pfte_p, status); 
IF (status.normal = TRUE) AND (pfte_pA. locked page = mmc$Ip_aging_lock) THEN 
pfte p%. locked page := mmc$1p_not_ locked; 
IFEND ; 


unlock length := unlock_length - osv$page_size; 
IF unlock length <= 0 THEN 

EXIT /untock_page_frames/; 
IFEND; 


unlock sva.offset := unlock sva.offset + osv$page_ size; 
WHILEND /untock_page_frames/; 


Status.normal :=: TRUE; 


PROCEND unlock pages; 
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o 7762 “ 
o 7763 { 
° 7764 { The purpose of this procedure is to process the monitor request to 
o 7765 { change (move) the segment table. 
o 7766 { 
o 7767 { MMPS$MTR_CHANGE SEGMENT TABLE (REQUEST _BLOCK) 
o 7768 { 
Oo 7769 { REQUEST_BLOCK: [input, output) This parameter contains the change segment 
°o 7770 { table monitor request block. The request status is returned to the 
Oo 7771 ¢{ caller in this request block. The mew SDT and SDTX pointers are 
ce] 7772 € passed to this procedure in this request block. 
o 7773 { 
oO 7774 
o 7775 PROCEDURE [XDCL] mmp$mtr_change_segment_table 
oO T776 (VAR request block: mmt$rb_change_segment_table; 
o 7777 cst_p: Aost$cpu_state_table}) ; 
o 7778 
o 7773 VAR 
o 7780 new _sdt_p: Acell, 
o 7781 new _sdtx p: Acell, 
oO 7782 old sdt_p: mmt$max_sdt_p, 
o 7783 eld _ sdtx p: mmt$max_sdtx_p, 
o 7784 sdt_rma: integer, 
o 7785 sdt_entries: integer, 
o 7786 xcb_p: Aost$execution_control block; 
oO 7787 
oO 7788 reguest_biock.status.normal := TRUE; 
4 7789 xcb_ p : 5 cSt  pr.xcb_p; 
4 7790 
4 7781 { Convert SDT and SDTX pointer from pointers relative to job’s address space to pointers 
4 7792 { relative to monitor’s address space. 
4 7733 
4 7794 new sdt_p := #ADDRESS (1, #SEGMENT (xcb_p), request _block.new_sdt_offset) ; 
4 7795 mmp$get_ max _sdt_sdtx_ pointer (xcb_p, old sdt_p, old_sdtx_p); 
4 7796 sdt_entries := xcb_ pA.xp.segment_tablie_length +1; 
4 7797 i#move (old _sdt_p, new_sdt_p, sdt_entries * 8); 
Ac 7798 
AC 7799 { The only time the new_sdtx_offset should equal zero is when this request 
ac 7800 { is called during job recovery. 
Ac 7801 
AC 7802 IF request _biock.new_sdtx_offset <> 0 THEN 
B4 7803 new _sdtx_p := #ADDRESS (1, #SEGMENT (xcb_p), request _biock.new_sdtx_ offset); 
B4 7804 i#move (old _sdtx_p, new_sdtx_p, sdt_entries * #SIZE (mmt$segment_descriptor_extended) ) ; 
104 7805 xcb_p4A.sdtx_offset :: request biock.new_sdtx_offset ; 
112 7806 IFEND; 
112 7807 
112 7808 f{ Update the segment table address and length in the job’‘s exchange package. 
112 7809 
112 7810 i#real_memory_address (new_sdt_p, sdt_rma) ; 
12C 67811 xcb_ pA.xp.segment_table_address_1 := sdt_rma DIV 10000(16); 
12C 67812 xcb pA.xp.segment_table_address_2 : = sdt_rma MOD 10000(16); 
12C 7813 xcb_ pA.sdt_ offset : = request block.new_sdt_offset ; 
120 7814 xcb pA.xp.segment table length :=: request _block.new_sdt_length; 
12C «697815 


12C 7816 PROCEND mmp$mtr_change_ segment_tabie; 
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o 7819S 

o 7820 PROCEDURE [XDCL] mmp$mtr_fetch_offset_mod_pages 

o 7821 (VAR rb: mmt$rb_fetch_offset_mod_ pages; 

o 7822 cst_p: Aost$cpu_state_ table) ; 

oO 7823 

oO 7824 { 

° 7825 { The purpose of this request is to process the monitor request 

° 7826 { ‘syc$rc_fetch_offset_mod_ pages’. This monitor request returns to 
° 7827 { job mode a list of segment offsets for all modified pages for a 

oO 867828 { given segment. 

° 7829 { If the array is not large enough to hold all offsets for the modified 
° 7830 f{ pages for the given segment, monitor will update the offsets returned 
° 7831 { field in the request block and the caller then should check and see 
ce 7832 { if he should re-allocate the array using the offsets returned value. 
o 7833 ¢{ 

o 7834 { MMPSMTR_FETCH_OFFSET MOD _PAGES (RB) 

o 7835 { 

oO 7836 { RB: (input, output): This parameter is a record which contains the 
3° 7837 { information specifying whats offsets to return. The offsets 
° 7838 { and control information are returned in this parameter. 

o 7839 { 

o 7840 

o 7841 TYPE 

Oo 7842 array_ptr_ type = record 

o 7843 case b: © .. 1 of 

oO 7844 =O 8 

Oo 7845 array _p: Aarray [1 .. * ] of ost$segment_offset, 

oO 7846 = 1 = 

oO 7847 array _pva: ost$pva, 

Oo 7848 casend, 

° 78493 recend; 

o 7850 

Oo 7851 VAR 

o 7882 asid: ost$asid, 

o 7853 aste_ p: Ammt$active segment_table_entry, 

° 7854 asti: mmt$ast_index, 

oO 7855 change _ array _ptr: array ptr_type, 

Oo 7856 converted _array_p: Aarray [1 .. * ] of ost$segment_offset, 

o 7857 dfd_p: Admt$disk_file_ descriptor, 

o 7858 offset _list_index: integer, 

o 7859 fde_p: gftS$file_desc_entry_p, 

o 7860 p_fau: Admt$file_allocation_unit, 

oO 7861 pfti_array_ Size: integer, 

o 7862 pft_index: mmt$page_frame_index, 

o 7863 sva: ost$system_virtual_address; 

oO 7864 

o 7865 { Initialize status. 

oO 7866 

° 7867 rbob.status.normal :=: TRUE; 

4 7868 

4 7869 { Convert PVA to SVA and get AST pointer. 

4 7870 . 

4 7871 ofpS$mtr_get_locked fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 

94 7872 mmp$get_verify_asti_in_fde (fde_p, rb.sfid, cst_pA.ijl_erdinal, asti); 
F2 7873 IF asti <> ©O THEN 


FA 7874 mmp$asid (asti, asid); 
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112 7875 sva.asid :: asid; 
112 7876 aste_ p := Ammv$ast_pA [astil; 
132 7877 ELSE 
132 7878 rbh.offsets returned := 0; 
132 7879 RETURN; 
134 7880 IFEND; 
134 7881 
134 7882 sva.offset := 0; 
113A 7883 { Locate all possibly MODIFIED pages for segment and get first pfti. 
134 7884 
134 7885 mmp$initialize find next _pfti (sva, 7FFFFFFO(16), include _partial_ pages, psc_all_except_avail, 
16C 7886 pft_index); 
16C 867887 
16C 7888s { Ensure that caller’s array is targe enough to hold all the offsets. 
16C 7889 
16C 7890 mmp$fetch pfti_array size (pfti_array_size) ; 
16C 7891 
16C 7892 IF pfti_array_ size > rb.offsets returned THEN 
18A 7893 rb.offsets returned := pfti_array size; 
184 7894 RETURN; 
190 7895 IFEND; 
190 7896 
1990 7897 change _array_ ptr.array_p := rb.offset_ list; 
193A 7898 change_array_ptr.array_pva.seg := #SEGMENT (4rb); 
19A 7899 converted _array_p := change _array_ptr.array_p; 
1B6 7900 
1B6 7801 { Move all offsets to array supplied by caller. 
1B6 7902 
1B6 7903 offset list _imdex := 0; 
1B6 7904 
1B6 7905 IF fde pA.media = gfc$fm_mass_storage_ file THEN 
1C4 7906 dmp$get_disk_file_ descriptor. _p (fde_p, dfd_p); . 
1E8 7907 IFEND ; 
1E8 7908 
1E8 7909 WHILE (pft_index <> 0) AND (offset_list_index < rb.offsets_returned) DO 
1F8 7810 IF mmv$pt_pA [mmv$pft_pA [pft_index].pti].m THEN 
232 7911 offset list index := offset list index + 1; 
232 7912 converted array_pA [offset_list_ index] := mmv$pft_p4 [pft_index].sva.offset; 
250 7913 ELSEIF (rb.return_unallocated_offsets) AND 
264 7914 (fde_pA.media = gfc$fm_transient_segment) THEN 
264 ‘T915 offset list _index := offset_list_index + 1; 
264 7916 converted _array_p” [offset _list_index] := mmv$pft_p4A [pft_index].sva.offset ; 
282 7917 ELSEIF (rb.return_unallocated_ offsets) AND 
296 7918 (fde_pA.media = gfc$fm_mass_storage_file) THEN 
286 7919 amp$get_fau_entry (dfd_p, mmv$pft_pA [pft_index].sva.offset, p_fau); 
352 7920 IF (p_fau = NIL) OR (p_fauA.state = dmc$fau_free) THEN 
364 7921 offset _list_index :: offset _list_index + 1; 
364 7922 converted _array_pA [offset_list_index] : = mmv$pft_p4 [pft_index].sva.offset ; 
398 7923 IFEND; 
398 7924 IFEND; 
398 7925 mmp$find_mext_pfti (pft_index) ; 
3E4 7926 WHILEND; 
3F8& 7927 
3F8 7928 rh.offsets_ returned := offset_list_index; 
3F8 7929 
3F8 7930 PROCEND mmp$mtr_fetch_offset_mod_ pages; 
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PROCEDURE [XDCL] mmp$mtr_fetch pva_unwritten_pgs 
(VAR rb: mmt$rb_ fetch pva_unwritten_pgs; 
cst_p: Aost$cpu_state table); 


The purpose of this request is to process the 
‘syc$rc_fetch_ pva_unwritten_pgs’ monitor function. This monitor 
function returns to job mode the segment offsets of pages that could 
not be written to mass storage for a Specified PVA. 
The following assumptions are made when processing this request: 
Any new pages added to the queue are added at the forward Tink. 
The order of entries in the queue does not change. 


MMP$MTR_FETCH PVA _UNWRITTEN_PGS (RB) 


RB: (input, output): This parameter is a record which contains the 
information specifying whats offsets to return. The offsets 
and control information are returned in this parameter. 


VAR 
offset _list_inmdex: 0 .. 6, 
pft entry: mmt$page_ frame_table_entry, 
pft_index: mmt$page_frame_index, 
sva: ost$system_virtual_address; 


mmp$xtask_pva_to_sva (rb.pva, sva, rb.status); 
IF rbo.status.normal = FALSE THEN 


RETURN; 
IFEND; 
pft_index := mmv$gpqi [mmc$pq_wired] .pqie. link. Dkw; 
IF rb.subsequent_request_ for _same_pva = TRUE THEN 


/search_pft_for_offset/ 
BEGIN 


/find_starting_pft_entry/ 
WHILE pft_imdex <> © DO 
pft_entry : = mmv$pft_p* [pft_index] ; 


IF (sva.asid = pft_entry.sva.asid) AND (rb.next_offset_to_return = pft_entry.sva.offset ) 


EXIT /search_pft_for_offset/; 
IFEND; 


pft_index := mmv$pft_pA [pft_index]. link. bkw; 
WHILEND /find_ starting pft_entry/; 
mtp$set_status_abnormal (’MM’, mmeS$no_matching offset, rb.status); 


RETURN; 
END /search_pft_for_offset/; 
IFEND; 
rb.offset_ list overflow :: FALSE; 
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ore 


IF rb.starting with_first page = TRUE THEN 
sva.offset := 0; 

ELSE 
sva.offset :: 

IFEND; 

offset l1ist_index :: 0; 


Search wired queue of page frame table entries 
offset that is >= starting offset. 


/search_pft/ 
WHILE pft_index <> © DO 
pft_entry := mmv$pft_pA [pft_index]; 


IF (sva.asid = pft_entry.sva.asid) AND 
IF offset _ list _index >= 6 THEN 
rb.offset_Tist_overflow := TRUE; 


rb.nmext_ offset to return :=F 
roh.offsets returned :: 6; 
RETURN; 
ELSE 
offset list index :=: 
rb.offset_ list 
IFEND ; 
IFEND ; 
pft_index :: pft_ entry. link. bkw; 
WHILEND /search_pft/; 


[offset _list_index] :: 


rb.offsets returned := offset _Tist_index; 


PROCEND mmp$mtr_fetch_pva_unwr itten_pgs; 
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PROCEDURE [XDCL] mmp$mtr_lock_unlock_pages 
(VAR rb: mmt$rb_lock_unlock_ pages; 
cst_p: Aost$cpu_state table); . 


The purpose of this request is to process the 
‘syc$rc_unilock_ pages’ monitor requests. 
I0 being done on a page, 

MMPSMTR_LOCK_ UNLOCK _ PAGES (RB) 


RB: (input, output) This parameter 


lock or untock. Request status 


VAR 


sva: ost$system_ virtual address; 


mmp$xtask_ pva_to_sva 

IF rb.status.normal = 
RETURN; 

IFEND; 


(rb.pva, sva, 
FALSE THEN 


rb.status); 


CASE rb.reqcode OF 

= syc$re_lock_pages = 
CASE rb.lock_page_type OF 
= mmc$ip_aging lock = 


lock pages (sva, rb.length, rb.status) ; 
ELSE 

mtp$set_status_ abnormal (‘MM’, 
CASEND ; 


= syc$rc_unlock_pages = 
CASE rb.1l0ck_page type OF 
= mmc$lp_aging_lock = 


unlock pages (sva, rb.jength, rb.status); 
ELSE 
mtp$set_status_abnormal (’MM’, mmeSinvalid_ request, 
CASEND ; 
ELSE 
mtp$set_status_abnormal (’MM’, mme$invalid request, 
CASEND; 


PROCEND mmp$mtr_lock_ unlock pages; 


1.0 88102 


(sva.offset <= 


offset _ list_index + 


1.0 89102 


Locking pages prevents 
unlocking a page removes this restriction. 


mme$invalid request, 


1989-08-21 


{(sva.offset DIV osv$page size) + 1) * osv$page_size; 


for entry with matching ASID and an 


pft_entry.sva.offset) THEN 


pft_entry.sva.offset ; 


1; 


pft_entry.sva.offset; 


1989-08-21 


‘syc$rc_lock_pages’ and 
implicit 


is a record that specifies pages to 
is returned 


in this parameter. 


rb.status); 


rb.status); 


rbo.status); 
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o 8071 ‘ 
oO 8072 PROCEDURE [XDCL] mmp$mtr_set_get_segment_length 
re) 8073 (VAR request_block: mmt$rb_set_get_segment_ length; 
© 8074 cst_p: Aost$cpu_state table); 
oO 8075 
o 8076 { 
9° 8077 { The purpose of this procedure is to process the monitor request to set 
ce) 8078 { or get current segment length. If the segment is shortened, pages beyond 
Oo 8078 { new segment length are freed. 
o 8080 { 
oO 8081 { MMPSMTR_SET_GET_SEGMENT_LENGTH (REQUEST _ BLOCK) 
o 8082 { 
© 8083 { REQUEST_BLOCK: (input,output) This parameter contains the monitor function 
° soa4a { request block for the set or get segment tength monitor function. 
o 808s { 
Oo 8086 
° 8087 VAR 
oO 8088 asid: ost$asid, 
Oo 8089 asti: mmt$ast_index, 
o 8090 aste_ p: Ammt$active_ segment _table_ entry, 
° 8091 fde_p: gft$locked file desc_entry_p, 
oO 8092 ijl_ordinal: jmt$iji_ordinal, 
ce) 8093 new segment _length: integer, 
Oo 8094 old_eoi_state: mmt$eoi_state, 
° 80395 old _segment_length: integer, 
Oo 8096 page count freed: integer, 
Oo 8097 sfid: gft$system_file_identifier, 
o 8098 sva: ost$system_virtual_address; 
o 8o0s9 
fe) 8100 
Oo 8101 fde_p := gfp$mtr_convert_job_mode_fde_p (request_bliock.fde_p, cst_p); 
34 8102 
3A 8103 CASE request block.subfunction code OF 
44 8104 = mmc$sf_get_segment_length_fde_p = 
4A 8105 ‘IF fde_ pA.stack_for_ring <> © THEN 
52 8106 ; IF cst_pA.xcb p%.xp.p_register.pva.ring > fde_pA.stack_for_ring THEN 
68 8107 request _block.segment_length := 0; 
72 8108 ELSEIF cst_pA.xcb pA.xp.p_register.pva.ring = fde_pA.stack for ring THEN 
76 8109 ; request _ biock.segment_length ::= #OFFSET (cst _p4.xcb_p4.xp.ao_dynamic_space_pointer ); 
86 8110 ; ELSE 
86 8111 request block.segment_length := 
98 8112 | cst_pA.xcb_pA.xp.tos_registers [fde_pA.stack_for_ring] .pva.offset ; 
$8 8113 IFEND; 
sc 8114 . ELSE 
s€ 8115 IF fde_p4A.eoi_state = mmc$eci_uncertain THEN 
WARN * 8116 fixup chapter _length (fde_p); 
29A 8117 IFEND ; 
294 8118 request biock.segment_length := fde_p%.eoi_ byte_address; 
246 8119 IFEND; 
248 8120 po 
248 8121 2 mmc$sf_set_segment_length_fde_p = 
248 8122 eld _ segment_length :=: fde_pA.eoi_ byte address; 
248 8123 Old_eoi_state := fde_p%.eoi_state; 
248 8124 new _segment_length := request _block.segment_ length; 
2A8 8125 
248 8126 fde_ pA.eoi_byte_ address := new_segment_length; 
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Fde pA.eoi_state := mmc$eoi_actual; 
Fde_ pA.flags.eo0i_modified :+= TRUE; 


IF (old_eoi_state = mmc$eoi_uncertain) OR 
((old_segment_length OIV osv$page_size) >» (new_segment_length DIV osv$page_ size) ) 
gofp$mtr_get_sfid_from_fde_p (fde_p, sfid, ijl_ordinal); 
mmp$get_verify_asti_in_fde (fde_p, sfid, ijl_ordinal, asti); 
IF asti <> © THEN 
aste_p := Ammv$ast_pA [asti]; 
IF aste_pA.pages_in_memory > © THEN 
mmpS$asid (fde_ pA.asti, asid); 


Sva.aSid :: asid; 
sva.offset :=: new segment _tength; 
mmp$mm_free_pages (sva, 7FFFFFFF(16), aste_p, FALSE, page _count_ freed) ; 
IFEND; 
IFEND; 
IFEND ; 
ELSE 
mtp$error_stop (‘MM - Bad option on get segment length’); 
CASENO; 


PROCEND mmp$mtr_set_get_segment_length; 


THEN 
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This procedure will find the unused pages assigned by mmp$page_pull when the 
task page faulted for a "new page", release them, and set eoi to the end of the 
last used page. 


PROCEDURE [INLINE] 
( fde_p: 


fixup chapter_ length 
gft$ locked _file_desc_entry_p); 


VAR 

asid: ost$asid, 

aste_p: Ammt$active segment _table_entry, 

asti: mmt$ast_index, 

count: 1 32, 

eoi: ost$segment_Jength, 

found: boolean, 

a: 1 .. #40, 

ijl_ordinal: jmt$ijl_ordinal, 
max_eoi: ost$segment_ length, 
offset: integer, 
page_count_ freed: integer, 
pages freed: integer, 
pfti_array: array [1 .. 10] 
pti: integer, 
sfid: gft$system_file_ identifier, 
Sva: ost$system_virtual_address; 


OF mmt$page_ frame_index, 


Check if the asid 
of the file 


in the fde 1s still valid. If not then there 
in memory and EOI will be assumed correct. 


are no pages 


gofp$mtr_get_sfid_from_fde_p (fde_p, 
mmp$get_verify_asti_in_fde (fde_p, 
IF asti = © THEN 

RETURN; 
IFEND; 
mmp$asid 


sfid, 
sfid, 


ijl_ordinal); 
ijl_ordinal, asti); 


(asti, asid); 

Start searching for unused pages at the highest page assigned and work backwards, 
stopping at the first modified page. Eoi is currentiy set at the end of the page 
that faulted. The number 16384 is an arbitrary number that only must be 
or equal to the minimum allocation unit Size. 
of extra pages to assign. 


eoi :: fde pA.eoi byte _ address; 


sva.asid := asid; 
offset := eoi + 16384 - osv$page_size; 
max eoi :: offset; 


pages freed := 0; 


/find_eoi/ 
WHILE offset > eoi DO 
offset :: offset - osv$page_size; 
IF offset < osc$maximum_offset THEN 
Sva.offset :: of Fset; 
#HASH_SVA (sva, pti, 


count, found); 


NOS/VE CYBIL/II 1.0 8910602 
IF found THEN 
IF mmv$pt_pA [pti] .m THEN 
offset := offset + osv$page_ size; 
EXIT /find_eoi/; 
IFEND; 
pages _ freed := pages freed + 1; 
mmv$pt_ pA [pti].v := FALSE; 
pfti_array [pages_freed] := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size 
IFEND; 
IFEND; 
WHILEND /find_eoi/; 
fde_ pr.eoi_ byte address := offset; 


fde_p’.eoi_state :: mmc$eoi_rounded; 
IF pages freed >» © THEN 
mmp$purge_all_cache_map; 
FOR i := 1 to pages freed DO 
mmp$delete _pt_entry (pfti_array [i], TRUE); 
mmp$relink_page frame (pfti_array [i], mmc$pq_free) 
FOREND ; 
IFEND; 


PROCEND fixup chapter length; 
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less than 
It was used to determine the number 
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MMPSMTR_LOCK_UNLOCK_SEGMENT 
© 8234 {----- a a ae a a oa ca aa a asa a Seca Seam } 
° 8235 {This procedure processes the following requests: 
oO 8236 { mmp$ lock_segment 
© 8237 { mmp$unlock_ segment 
O 8236 {s+ 6s 2-5 es RSS GAR I a a La RE RAL a eee ee, RN ae eae SR eee See eS LS RS Sie eS a ee ee } 
Oo 82398 
o 8240 
oO 8241 PROCEDURE [XDCL} mmp$mtr_lock_unlock_segment 
oO 8242 (VAR rb: mmt$rb_lock_unlock_segment ; 
oO 8243 cst_p: Aost$cpu_state table) ; 
oO 8244 
° 8245 VAR 
© 8246 aste_p: Ammt$active_ segment _table_entry, 
Oo 8247 ste_p: Ammt$segment_descriptor, 
oO 8248 Sstxe_p: Ammt$segment_descriptor_extended, 
oO 8249 taskid: ost$gliobal_task_id, 
Oo 8250 xcb_p: Aost$execution_control block, 
Oo 8251 page status: gft$page_status, 
oO 8252 qrb op: Ammt$rb_lock_unlock_ segment, 
oO 8253 fde_entry_p: gftS$locked file _desc_entry_p, 
re) 8254 dequeue tasks: boolean, 
Oo 8255 sdt_p: mmt$max_sdt_p, 
Oo 8256 sdtx_p: mmt$max_sdtx_p, 
° 8257 count: integer, 
oO 8258 iotype: [READ, STATIC] array Immc$lus_protected_write mmc$lus_ write] of 
Oo 8259 iotS$io_function := [ioc$write_locked page, ioc$write_page], 
Oo 8260 Sva: ost$system_virtual_address, 
ce] 8261 ijle_p: AjmtS$initiated _job_list_entry, 
re) 8262 io_id: mmt$io_identifier, 
Oo 8263 io count: mmt$active_io_ count, 
oO 8264 io_already active: boolean, 
Oo 8265 last_written_pfti: mmt$page_ frame_index, 
Oo 8266 wmp_status: mmt$write modified pages_status; 
Oo 8267 
Oo 8268 
Oo 8269 mmp$verify_ pva (Arb.pva, mmc$sat_read_or_write, rb.status) ; 
2A 8270 
2Q 8271 IF rb.status.normal THEN 
32 8272 mmp$convert_pva (rb.pva, cst_p, sva, fde_entry_p, aste_p, ste_p, stxe_p); 
76 8273 CASE rb.request OF 
8&8 8274 = mmc$ilus_lock_segment = 
8&8 8275 
88 8276 { Determine the status/location of the page. ’ 
8& 8277 
88 8278 CASE fde_entry_pA.media OF 
AS 82793 = gfc$tm_ transient _segment = 
A& 8280 page status :: gfc$ps_page_doesnt_exist; 
AE 8281 > gfcS$fm_mass_ storage file = 
AE 8282 dmp$fetch_ page status (fde_entry_p, sva.offset, stxe_pA.file_ limits enforced, 
EC 8283 FALSE {allocate_if_new}, page_status) ; 
EC 8284 = gfc$fm_ served file = 
EC 828s dfp$fetch_page_ status (fde_entry_p, sva.offset, page_ status) ; 
118 8286 ELSE 
118 8287 mtp$error_ stop (‘MM - bad FDE.MEDIA’); 
13A 8288 CASEND; 
134 &289 
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lock.task_queue.nead = 0) 


lock. locked for_read + 1; 


lock. locked for_read = 0) AND 


fde_entry_p4.segment_lock.task_queue) ; 


13A 8290 IF page _ status = gfc$ps_volume_unavailable THEN 

144 8291 mtp$set_status abnormal (’MM’, mmeSvolume_unavailablie, rb.status); 

144 8232 RETURN ; 

1SE 8293 ELSEIF page status = gfc$ps_server_terminated THEN ° 

164 82394 mtp$set_status abnormal (‘DF’, dfe$server_has_terminated, rb.status); 
164 8295 RETURN; 

117A 8296 IFEND,; 

17h 8287 IF (stxe_pA.segment_lock <> mmc$1ss_none) AND 

192 8298 (stxe_pA.segment_lock <> mmc$1ss_queued_ for _lock_r3) AND 

182 8299 (stxe_pA.segment_lock <> mmc$1ss_queued_for_lock_user) THEN 

182 8300 mtp$set_status_ abnormal (’MM’, mme$segment_ locked _by_ task, rb.status]) ; 
1AH 8301 ELSEIF (rb.access = mmc$lus_lock_for_read) AND NOT 

104 8302 (fde_entry p%.segment_lock. locked_for_write) AND (fde_entry_p%.segment_ 
1D4 8303 (fde_entry_p%.segment_lock. locked for_read < 

1D4 8304 UPPERVALUE (fde entry pA. segment _ _lock. locked for _read)) THEN 
1D4 8305 fde entry _p’.segment_ lock. locked_for_read :2 fde_entry_ pA.segment_ 

104 8306 IF cst_pA.xcb_ pA.xp.p_register.pva.ring <= 3 THEN 

1FO 8307 tmp$mtr _begin_ lock _activity (cst_pA.xcb_p, osc$system_lock_activity) ; 
208 8308 stxe_ pa. segment _ lock := mmc$iss_lock_for_read_r3; 

216 8309 ELSE 

216 8310 tmp$mtr_begin_lock_activity (cst_p4.xcb_p, osc$subsystem_lock_activity) ; 
22a 8311 stxe pA.segment_lock := mmc$1ss_lock_for_read_user ; 

232 8312 IFEND; 

236 8313 ELSEIF (rb.access = mmc$1lus_lock_for_write) AND (fde_entry_p“.segment_ 
254 8314 NOT fde_entry pA.segment_ lock. locked _for_ write THEN 

254 8315 fde_entry_p’.segment_lock. locked for write := TRUE; 

254 8316 IF cst_pA.xcb_pA.xp.p_register.pva.ring <= 3 THEN 

26E 8317 tmp$mtr_begin_lock_activity (cst_p4.xcb_p, osc$system_lock_activity) ; 
286 8318 stxe_pA.segment_lock := mmc$1ss_lock_for_ write r3; 

294 8319 ELSE 

2834 8320 tmp$mtr_begin_lock_activity (cst_pA.xcb_p, osc$subsystem_lock_ activity) ; 
2A8 8321 stxe_pA.segment_lock := mmc$1ss_lock_for_write_user ; 

2B2 8322 IFEND; 

2B6 8323 ELSE 

2B6 8324 mtp$set_status_abnormal [(’MM’, mme$segment_locked another _task, rb.status); 
2B6 8325 IF rb.wait = osc$wait THEN 

202 8326 IF cst _pA.xcb pA.xp.p_register.pva.ring <= 3 THEN 

2E8 8327 Stxe_pA.segment_lock := mmc$1ss_queued_for-lock_r3; 

2F4 8328 ELSE 

2F& 8329 stxe_ pA.segment_lock := mmc$1ss_queued_for_lock_user ; 

2FC 8330 IFEND; 

2FC 8331 tmp$queuve_ task (cst_pA.taskid, tmc$ts_segment_lock_wait, 

322 8332 IFEND; 

322 8333 IFEND,; 

324 8334 

324 8335 = mmc$ilus_untock segment = 

324 8336 IF stxe_pA.segment_lock = mmc$ Iss_none THEN 

330 8337 mtp$set_ status abnormal (‘MM’, mme$segment_not_ locked, rb.status); 

348 8338 ELSEIF fde _entry_ pA.segment_lock. locked for_write THEN 

354 83393 Ssva.offset := 0; 

354 8340 CASE rb.page_disposition OF 

384 8341 = mmc$Slus_write, mmc$ius_ protected write = 

384 8342 io_id. specified := FALSE; 

384 8343 io_id.io_ function ::= iotype [rb.page disposition]; 

384 8344 mmp$mm_write modified_pages (sva, 7FFFFFFO(16), fde_entry_p, aste_p, 
3FC 8345 rb.init_new_io, FALSE, io_id, io count, io_already_ active, 
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AND 


iotype [rb.page_disposition], 
last_written_pfti, wmp_status); 
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3FC 8346 mmp$Sprocess_ wmp_status (wmp_status, last _written_pfti, rb.wait, rb.init_new_io, rb.status); 
430 8347 IF ((wmp_status <> mmc$wmp_io_compiete) AND (wmp_status <> mmc$wmp_io_active)) OR 
44C 8348 ((wmp_status = mmc$wmp_io_active) AND (rb.wait = osc$wait)}) THEN 
44C 8349 RETURN; 
44E 8350 IFEND; 
452 8351 => mmc$ilus_ remove_from_working set = 
452 8352 mmp$remove_pages working set (sva, 7FfFFFFFO(16), aste_p, count); 
482 8353 = mmc$lus_ free = 
482 8354 mmp$mm_free_ pages (sva, 7FFFFFFO(16), aste_p, FALSE, count); 
4BG6 8355 = mmc$lus_none = 
4BA 8356 ELSE 
4BA 8357 mtp$set_status_abnormail (‘MM’, mmeS$invalid_request, rb.status); 
4BA 8358 RETURN; 
400 8359 CASEND ; 
4DO 8360 IF stxe_p4.segment_lock = mmc$iss_lock_for_write_r3 THEN 
4DE 8361 tmp$mtr_end_lock_activity (cst_p, osc$system_lock_activity, cst p4%.xcb_p); 
5SO0A 8362 ELSE. 
50A 8363 tmp$mtr_end_lock_activity (cst_p, osc$subsystem_lock_activity, cst _p%.xcb_p); 
52E 83684 IFEND; 
52E 8365 fde_entry _pA.segment_lock. locked for_ write :: FALSE; 
534 8366 ELSE 
534A 8367 IF stxe_p4.segment_lock = mmc$1ss_lock_for_read_r3 THEN 
540 8s&368 tmp$mtr_end_leck_activity (cst_p, osc$system_lock_activity, cst _p%.xcb_p); 
568 8369 ELSE 
568 8370 tmpS$mtr_end_lock_activity (cst_p, osc$subsystem_lock_activity, cst_pA.xcb_p); 
588 8371 IFEND ; 
588 8372 fde_entry_p%.segment_lock. locked _for_read := fde_entry_p’.segment lock. locked for read - 1; 
538 &373 IFEND ; 
598 8374 stxe_pA.segment_lock := mmc$1ss_none; 
598 8375 
598 8376 dequeue _ tasks := NOT fde_ entry _pA.segment_lock. locked for _ write AND 
SCC 8377 ((fde_entry_p4.segment_lock. locked for_read = 0) OR 
SCC 8378 (fde_entry _p%.segment_lock. locked _for_read = 
5CcC 6&379 UPPERVALUE (fde_entry p4A.segment_lock. locked for read) - 1)); 
SCC 8380 WHILE dequeue_tasks AND (fde_entry p4.segment_lock.task_ queue.head <> ©) DO 
SEO 8381 tmp$get_taskid_from_task_queue (fde_entry_p%.segment_lock.task_queue, taskid); 
SEO 8382 tmp$get_xcb_p (taskid, xcb_p, ijle_p); 
628 8383 IF xcb_p <> NIL THEN 
632 8384 qrb_p :: #LOC (xcb_pA.xp.x_ registers [0])}; 
636 8385 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
636 8386 stxe_p : = Asdtx_pA.sdtx_table [#SEGMENT (qrb_p4.pva)]1; 
636 8387 IF qrb_ pA.access = mmc$ius_lock_for_read THEN 
68C 8388 fde_entry pA.segment_ lock. locked for_read :=: fde_entry pA.segment lock. locked for read + 1; 
68C 8389 IF stxe_ pA.segment_lock = mmc$1ss_queued for lock r3 THEN 
6A4 8390 tmp$mtr_begin_lock_activity (xcb_p, osc$system_lock_activity) ; 
6BC 8391 stxe_pA.segment_lock := mmc$1ss_lock_for_read_r3; 
6CA 8392 ELSE 
6CA 8393 tmp$mtr_begin_lock_activity (xcb_p, osc$subsystem_lock_activity); 
6DE 8394 stxe_p’.segment_lock := mmc$1ss_lock_for_read_user ; 
6E8 8395 IFEND; 
6ES 8396 IF fde_entry_p4.segment_lock. locked for_read = 
6F&S 8397 UPPERVALUE (fde_entry_p%.segment_lock. locked _for_read) THEN 
6F&S 8398 dequeue tasks :: FALSE; 
6FC 83939 IFEND ; 
700 8400 ELSEIF fde_entry p%.segment_lock.tocked_for_read = © THEN 
70C 84061 fde_ entry _pA.segment_lock. locked for write := TRUE; 
SOURCE LIST OF mmm$mtr_user_request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
MMPSMTR_LOCK_ UNLOCK SEGMENT 
7OC 8402 IF stxe_pA.segment_lock = mmc$itss_queued_ for_lock_r3 THEN 
71A 8403 tmp$mtr_begin_lock_activity (xcb_p, osc$system_lock_ activity) ; 
732 8404 stxe_p4A.segment_lock := mmc$iss_lock_for write r3; 
740 8405 ELSE 
740 8406 tmp$mtr_begin_lock_ activity ({xcb_p, osc$subsystem_lock_activity) ; 
754 %&8&407 stxe_pA.segment_ lock := mmc$1ss_lock_for_write_user; 
75E 8408 IFEND; 
7S5E 8409 dequeue tasks := FALSE; 
766 8410 ELSE 
766 8411 imp$unlock_ajl (ijle_p); 
81A 8412 RETURN; 
81C 8413 IFEND ; 
81C 8414 qrb_pA.status.normal := TRUE; 
81C 8415 imp$unlock_ajl (ijle_p); 
8D&6 8416 IFEND; 
8D6 8417 tmp$dequeue_task (fde_entry_p4.segment_lock.task_queue, taskid); 
8FGE 8418 WHILEND ; 
$08 8419 ELSE 
$so8g 8420 mtp$set_ status abnormal (’°MM’, mmeS$invalid_request, rb.status); 
S1A 8421 . CASEND; 
$1A 8422 IFEND ; 
S81A 8423 
$1A 8424 PROCEND mmp$mtr_lock_unlock_ segment ; 
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Oo 8426 { 
oO 8427 { The purpose of this request is to suspend execution of the requesting 
Oo 8428 { task if I10 is active for the specified page. If I0 is not active 
fel 8429 { or if the page is net in memory, this request completes immediately and a 
° 8430 { normal status is returned. If I0 is active, execution of the task 
© 8431 { is suspended until all 10 to the page is completed. 
© 8432 { 
oO 8433 { MMPSWAIT_IO_ COMPLETION (P, STATUS) 
o 8434 { 
© 8435 { P: (INPUT) This parameter specifies the address of the page. 
o 8436 { 
° 8437 { STATUS: (OUTPUT) This parameter specifies request status. 
o 8438 { 
° 84393 
° 8440 
oO 8441 PROCEDURE [XDCL) mmp$mtr_wait_io_completion 
0 8442 (VAR rb: mmt$rb_wait_io_completion; 
© 8443 cst_p: Aost$cpu_state_table) ; 
te) 8444 
ce) 8445 VAR 
ce) 8446 coumt: 1... 32, 
° 8447 found: boolean, 
ce) 8448 pti: integer, 
re) 8449 pfti: mmtSpage_ frame_index, 
Oo 8450 Sva: ost$system_virtual_address; 
fe) 8451 
oO 8482 mmp$verify pva (Arb.pva, mmc$sat_read_or_write, rb.status); 
2a 8453 IF ro.status.normal THEN 
32 8454 mmp$xtask_ pva_to_sva (rb.pva, sva, rb.status); 
52 8455 IF rb.status.normal THEN 
5A 8456 #HASH_SVA (sva, pti, count, found); 
60 8457 IF found THEN 
74 8458 pfti := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size; 
74 8459 IF mmv$pft_pA [pfti].active_ioe_coumt <> © THEN 
BO 8460 cst_pA.xcb_ p%.page wait _info.pva := NIL; 
BA 8461 tmpSqueue_task (cst_pA.taskid, tmc$ts_io_wait queued, mmv$pft_ pA 
106 8462 IFEND; 
106 8463 IFEND; 
106 8464 IFEND; 
106 8465 IFEND; 


106 8466  PROCEND mmp$mtr_wait_io_complet ion; 
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[pfti] .task_ queue) ; 


1989-08-21 


MMPSMODIFY_PAGES : 
Oo 8469 
o 8470 PROCEDURE [XDCL] mmp$modify_ pages 
Oo 8471 ( fde_p: gft$locked_ file _desc_entry_p; 
Oo 8472 offset: ost$segment_offset ; 
Oo 8473 tength: ost$byte_ count ; 
Oo 8474 set modified bit: boolean; 
o 8475 VAR status: syt$monitor_status) ; 
© 8476 
° 8477 
ce) 8478 { This procedure verifies that all pages of a given sva range 
° 8479 { are im memory and optionally sets the modified bits. 
0 8480 
° 8481 { This request is used only by dmp$realiocate file space to verify 
© 8482 { that all the pages of an allocation unit being reallocated are in memory 
© 8483 { and to cause them to be modified and therefore written to the new allocation 
© 8484 { unit. 
oO 8485 
oO 8486 VAR 
o 8487 asid: ost$asid, 
oO 8488 asti: mmt$ast_index, 
Oo 8489 ijlo: jmt$iji_ordinal, 
o 8490 lock length: integer, 
Oo 8491 sfid: gft$system_file_identifier, 
© 8492 Sva: ost$system_virtual_address, 
oO 8493 pfte_p: AmmtS$page_frame_table_entry, 
oO 8494 pfti: mmt$page_ frame_index; 
Oo 8435 
Oo 8496 
o 8497 status.normal := TRUE; 
4 8498 
4 8499 ofp$mtr_get_sfid_from_fde_p (fde_p, sfid, ijlo); 
70 8500 mmp$get_ verify asti_in_fde (fde_p, sfid, ijlo, asti); 
D6 8501 IF asti = © THEN 
DE 8502 mtp$set_status_abnormal (’MM’, mme$page_not_in_page_ table, status); 
DE 8503 RETURN; 
EE 8504 IFEND; 
EE 8505 mmp$asid (asti, asid); 
108A 8506 
10a 8507 leck_length := length + offset; 
10A 8508 sva.asid := asid; 
108A 8509 sva.offset := offset; 
10A 8510 
108 8511 /modify pages_loop/ 
TOA 8512 WHILE TRUE DO : 
126 8513 convert _sva_to_pfte_p (sva, pfte_p, status); 
1348 8514 IF NOT status.normal THEN 
142 8515 mtp$set_status_ abnormal (’MM’, mme$page_not_in_page_ table, status) ; 
142 8516 RETURN; 
150 885817 IFEND; 
150 8518 
150 68519 IF NOT mmvS$pt_p4A [pfte_pA.ptil.v THEN 
170 8520 {Return if page is not modify-able 
170 8521 mtp$set_ status _abnormal (’MM’, mme$page_ not_in_page_table, status); 
170 8522 RETURN; 
17E 8523 IFEND; 


17E 8524 
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17E 8525 
186 8526 
186 8527 
186 8528 
186 85293 
186 8530 
1DA 8531 
1E6 8532 
1E6 8533 
1E6 &534 
1F4 8535 
1F4 8536 
1F4 8537 
1F4 8538 
202 8539 
204 85840 
204 8541 
204 8542 
204 8543 
218 8544 
218 8545 

° 


KKK 


IF set_modified_ bit THEN 
mmv$pt_pA [pfte_pA.pti].m := TRUE; 
{Allow retry of write operations 
pfte pA.jio_error := ioc$no_error ; 
pfti := (mmv$pt_pA [pfte_pA.pti].rma * 512) DIV osv$page_size; 
mmp$relink_page_ frame (pfti, pfte_pA.aste_pA.queue id); 
ELSEIF pfte_ pA.active io count > © THEN 
{Return if page is not idle 
mtp$set_status abnormal (’MM’, mme$page_not_in_page_table, status); 
RETURN; 
IFEND; 


lock_length := lock length ~- osv$page_ size; 
IF tock_length <= © THEN 

EXIT /modify pages loop/; 
IFEND; 


sva.offset := sva.offset + osv$page_size; 


WHILEND /modify pages_loop/; 


PROCEND mmp$modify_pages; 


8546 MODEND mmm$mtr_user_request_processor ; 
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LINE TEXT 
8116 Code scheduling abandoned for this block due to register jamming. 


warning diagnostic 
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ELF LFzCS612 


1989-08-21 


13:33:34 


PAD=0 


13:33:34 


PAGE 5406 


PAGE $41 


pa ee ad. 


REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 542 
MMPS$MODIFY_PAGES 


IDENTIFIER} «S922 922 65s esis DEFINED s $s: 6 se sete sie REFERENCES 


ON LINE 
aO_dynamic_space_pointer 4628 8109 
access 2384 8301 8313 8387 
active_io_count 4og5 8459 8531 
ajl_ordinal 3415 6841 6876 7110 7871 8411 8415 
ajilo 7107 7110/M 7111/8 7114/8 7114/8 
‘ajlo 8241 8411/M 8411/S 8411/S 8411/8 8415/M 8415/Ss 8415/8 8415/S 
amc$access mode 1131 608 
amc$average_ record length 1133 683 
-amc$block_type 1134 610 
amc$character_conversion 1135 612 
amc$c lear_space 1136 614 
amc$collate table name 1138 685 
amc$compression_procedure_name 1191 687 
amc$data_padding 1139 690 
amc$dynamic_home_block_space 1192 692 
amc$embedded_key 1140 694 
amc$error_exit name 1141 616 
amc$error_ limit 1143 696 
_amc$error_options 1144 618 
amcS$est imated_ record count 1145 698 
amc$file_ access procedure 1146 620 
amc$file byte_limit 430 433 435 892 $30 S66 1245 1307 
amc$file contents 1147 622 
amc$file_ limit 1149 624 
amc$file organization 1150 626 
amce$file processor 11514 628 
amc$fiile structure 1152 630 
amc$forced write 1183 632 
amc$hashing procedure name 1193 700 
amc$index_ levels 1158 702 
amc$ index padding 1160 704 
amc$initial_home_block_ count 1194 706 
amc$internal_code 1161 634 
amc$key_length 1162 708 
amc$key_position 1163 710 
amc$key_ type 1164 712 
amc$ label_exit name 1165 636 
amc$label_options 1167 638 
amc$ label_type 1168 640 
amc$ line number 1169 642 
“amc$ loading factor 1195 714 
amc$lock_expiration_time 1196 716 
amc$log_ residence 1198 720 
amc$ logging options 11837 718 
amc$max_attribute 12393 1243 
amc$max_bilock_length 1170 644 
amc$max_block_number 752 755 
-amc$max_error_count 1123 1126 
amc$max_file_id_ ordinal 1060 1067 
amc$max_home_blocks $30 933 
amc$max_index_level $25 928 
amc$max_key_ length 1264 1268 
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IDENTIFIER St 222 See es 5.6 ir <<DEFINED = =< onc .4<:n%' 2s ~-- “REFERENCES 
ON LINE 

amc$max_key_ position 1273 1270 
amc$max_line_number 943 946 
amc$max_lines_per_inch 1331 1328 
amc$max_page_ width 8935 898 
amc$max_path_name_size 909 912 
amc$max_record length 1171 646 
amc$max_records per_block 1315 1319 
amc$max_statement_id_ length 9390 993 
amc$max_user_info 1326 1322 
amc$maximum_block 760 757 1298 
amc$maximum_keyed_record 1276 1273 
amc$maximum_record S66 969 1041 1302 
amc$message_contro} 1172 722 
amc$min_block_length 1173 648 
amc$min_record_ length 1174 650 
amc$null_ attribute 1175 652 
~amc$open_position 1176 654 
amc$padding character 1177 656 
amc$page_format 1178 658 
amc$page_ length 11793 660 
amc$page_width 1180 662 
amec$preset value 1182 664 
amc$record_ limit 1183 724 
-ame$record_ type 1184 666 
amc$records_per_bilock 1185 726 
ame$return_option 1186 668 
amc$ring_attributes 1187 670 
amc$statement_identifier 1188 672 
amc$user_info 1189 674 
amc$vertical_print_ density 1190 676 
-amt$access selection 597 595 
amtS$average_ record length 1041 684 
amt$block_header type 733 736 742 
amt$block_number 755 738 745 
amt$block_ status 734 747 
amt$block_type 1044 611 
amt$collation value 1049 1046 
camt$compression_procedure name $00 68S 
amt$data_padding 1052 691 
amt$dynamic_home_block_ space 919 683 
amt$entry point_reference 903 800 $21 
Vamt$error limit 1119 637 
amt$estimated record count 1128 699 

amt$file attribute _keys 1243 602 

amt$file byte address 433 400 401 448 452 464 466 482 1738 
1786 1787 1813 1837 2004 5981 6761 6776 
amt$file_ contents 778 623 
amt$file_ id_ordina}l 1067 1064 
“amt$file_id_sequence 1068 1065 
amt$file_ identifier 1063 1055 1282 
amt$file_item 601 597 600 
-a@amtSFfile limit 435 470 625 1660 2008 


xxx REFERENCE ABBREVIATIONS : Memodify, Atattribute, Stsubscript, I:1/0 ref, R:read, Wewrite, P=sparameter 
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IDENTIFIERc crete et eer eres - -DEFINED---+-++-+--+2--- -~---REFERENCES 

ON LINE 
amt$file_ organization 12493 627 
amt$file_ position 1252 588 
amt$file processor 839 629 
amt$file structure 885 631 
amt$forced write 1255 633 
amt$hashing_procedure_name $21 701 
amt$index_levels 928 703 
amt$ index padding 1258 705 
amt$initial_home_block_count $33 707 
amt$internal code 1261 635 
amt$key_ length 1268 709 
amt$Skey_ position 1270 711 
amt$key_ type 1279 713 
amt$label_options 590 639 
amt$ label type 1286 641 
amt$line_number 937 643 
amt$line_number_ length 946 $38 
amt$line_nmumber_ location 948 $39 
amt$ loading factor 951 715 
amt$lock_expiration_time 953 717 
amt$log residence 955 721 
amt$ logging options 958 719 
amt$ logging _ possibilities 961 958 
amt$max_block_ length 757 645 737 743 744 
amt$max_ record length $69 647 
amt$message_control 1296 723 
amt$min_block_length 1298 649 
amt$Smin_ record length 1302 651 
amt$open_position $73 655 
amt$padding character 1305 657 
amt$page_ format 88s 659 
amt$page_length 832 661 
amt$page_width 898 663 948 g95 
amt $path_name 912 905 955 
amt$preset_value 433 490 665 1658 
amt$record_ limit 1307 725 
amt$record type 1311 667 
amt$records_per_block 13193 727 
amt$return_option 591 669 
amt$ring attributes 977 671 
amt$statement_id_ length $33 985 
amt$statement_id_ location 935 886 
amt$statement_identifier 984 673 
amt$tape_error_ action 1005 1000 
amt$tape_error_options 998 619 
amt$unused_ bit _count 765 739 746 
amt$user_info 1322 675 
amt$vertical_print_density 1328 677 
array _p 7845 7897/M 7899 
array ptr type 7842 7855 
array _pva 7847 7898/M 
asid 1705 7875/M 7376 7376 8004 8004 8116/M 8138/M 8196/M 


** x REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S:subscript, It1I/0O ref, Reread, Wewrite, Ptparameter 


REFERENCES OF mmm$mtr_user _request_processor NOS/VE CYBIL/II 1.0 8910602 1989-08-21 13:33:34 PAGE S45 


MMPSMODIFY PAGES 


IDENTIFIER--+e ee 2 eee ne eee eee ee DEFINED----<------ Sse) esis REFERENCES 
ON LINE 
8508/M 
asid 7852 7874/P 7875 
asid 8072 8116/P 8116 
asid 8088 8137/P 8138 
asid 8161 8187/P 8196 
asid 8487 8505/P 8508 
aste op 4100 8530/P 
aste_p 7853 7876/M 7885/P 
aste_p 8090 8135/M 8136 8140/P 
aste_p 8246 8272/P 8344/P 8352/P 8354/P 
ast i 2003 7283 7287/M 7872 7872/M 8116 8116/M 8133 8133/M 
8137/P 8183 8183/M 8500 8500/M 
asti 7280 7283/M 7284/S 7284/S 7285/S 7286/M 
asti 7820 7872/M 7872/85 7872/8 7872/8 7872/M 
asti 7854 7872/P 7873 7874a/P 7876/8 
ast i 8072 8116/P 8116 8116/P 
asti 8072 8116/M 8116/5 8116/58 8116/8 8116/M 8133/M 8133/S 8133/8 
8133/8 8133/M 
asti 808s 8133/P 8134 8135/S 
asti 8157 8183/M 8183/8 8183/58 8183/8 8183/M 
asti 8163 8183/P 8184 8187/P 
asti 8470 8500/M 8500/S 8500/S 8500/S 8500/M 
asti 8488 8500/P 8501 8505/P 
b 6869 6878 6878 
b 6965 6975 6376 
b 7103 7109 7109 
b 7173 7180 7181 
b 7820 7871 7871 
b 8241 8411 8411 8415 8415 
be 7103 7103/M 7109 7108 
be 7174 7177/M 7178 7182 
be 8241 8411/M 8411 8411 8415/M 8415 8415 
bkw 2244 7967 7380 8015 
byte 2126 7054/M 7O76/M 
byte address 6776 6794 67399 
byte address 7820 7919 7319 
bytes _per_allocation 396 6739 7819 
bytes _per_level_2 401 6794 6799 79198 7919 
change_array ptr 7855 7837/M 7898/M 7899 
clear 7165 7116/M 7143/M 8411/M 8415/M 
cmc$central_memory_element 6518 6394 6624 
cmc$central_processor element 6519 6383 
cmce$channel_adapter_element 6520 6387 6629 
cmc$choose_any_pp 6561 6532 
cmc$choose_pp_by_ barrel 6562 6534 
cmc$choose pp_by channel 6561 6536 
cmc$choose_ specific_pp 6562 6539 
cmc$communicat ions_element 6523 6387 6623 
cme$controller_element 6519 6388 6630 
cmc$data_channel_element 6520 6385 6626 


*** REFERENCE ABBREVIATIONS : Mzmodify, Atattribute, Szsubscript, I:1/0 ref, Rtread, Wewrite, Pparameter 


REFERENCES OF 
MMPSMODIFY_PAGES 
IDENTIFIER----*---¢- er 


cmc$external_ processor_element 
cmc$iou_element 
cmc$mainframe_element 
cmc$max_equipment_per_channe} 
cmc$max_esm_size 
cmc$max_ low _speed_port_nmumber 
cmc$max_side_door_port_number 
cmc$max_units_per_ controller 
cmc$pem_element 

cmc$pp_element 
cmc$storage_device_element 
cmt$central_ memory port_number 
cmt$channel_descriptor 
cmt$channel_identification 
cmt$channel_ordinal 
cmt$element name 


cmt$element_reservation 
cmt$element_ state 
cmt$element_type 
cmt$esm_maintenance_ buffer loc 
cmt$esm_memory_size 
cmt$hardware_address 

cmt $model_number 
cmt$peripheral_ descriptor 
cmt$physicai_address_ parts 
cmt$physical_address_ specifier 
cmt$physical_equipment_number 
cmt$physical_unit_number 
cmt$pp_identification 
cmt$pp_ordinal 
cmt$pp_reservation 
cmt$pp_reservat ion_choices 
cmt$product identification 
cmt$product number 
-emt$ser ial number 

emt$upline_ connection 
condition 


condition 

condition 

condition 

“condition 

condition 

condition 

condition 

convert sva_to_pfte_p 
converted array _p 
count 


x*x 


REFERENCES OF 
MMPSMODIFY PAGES 


IDENTIFIER----- were ee mere ee eee 


count 
count 
count 
count 
count 
cst_p 
cst_p 
est_p 
- cst _p 
cst_p 
ecst_p 
cst op 


cst_p 


dequeue tasks 

dest 

dest 

dfc$active 

dfc$awaiting recovery 
dfc$command_record_ bytes 

_ adfc$deact ivated 
dfc$division_overwr ite words 
dfc$esm_command_ record size 
dfc$esm_ connection 
‘dfc$esm_header_record_ size 
dfc$esm_maintenance_buf_ size 
dfc$esm_memory_base_ shift 
dfc$header_record bytes 
dfc$inactive 
dfc$max_data_record bytes 
dfc$max_esm_divisions 

-dfc$max _esm_memory_ size 
dfc$max_number_of_ mainframes 
dfc$max_number_of queues 

_ dfc$max_queue_entries 
dfc$max_req timeout _count_valu 
dfc$max_request_buffer_ entries 
dfc$max_ retransmit _count_value 
~ afc$maximum_1ifet ime 
dfc$maximum_queue_interfaces 
dfc$maximum_user_buffer_area 

. dFc$maximum_user_data_area 
dfc$min_cdcnet_errors 


dfc$min_data_record bytes 
dfc$min_driver_test_errors 
dfc$min_ecc 


xEX 


mmm$mtr_user_request_processor 


DEFINED 
ON LINE 
6523 


REFERENCE ABBREVIATIONS 


mmm$mtr_user request processor 


DEFINED 
ON LINE 


7619 
8072 
8164 
8257 
8446 
6809 
7408 
777 
7822 
8072 
8074 
8243 


8443 


8254 
7083 
7775 
5804 
5805 
3515 
5804 
3502 
3523 
$748 
3524 
3503 
3509 
3514 
5804 
3518 
3512 
3504 
3511 
5814 
5815 
e 5699 
53798 
5703 
5879 
6653 
$826 
5830 
317 


3519 
312 
22 


REFERENCE ABBREVIATIONS 


eee ew ee @ ew &@ 2 eB eB oe @ 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 88102 
REFERENCES 

6388 

6394 

6394 

5375 

6580 6585 
6572 

6344 6365 
6513 

6395 

6391. 

6389 

6625 

6386 

6484 6538 
6407 6492 
5346 6330 
6402 6405 
6627 6628 
6349 6649 
3319 3320 
6382 6623 
6347 6361 
6574 

6476 

6596 

6390 

6502 

6482 

5356 6485 
6486 

6530 6540 
6546 

6392 

6531 

6569 

6594 

6570 

6572 6573 
7426/M 7628/M 
8062/M 8065/M 
8420/M 8502/M 
7426 

7668 7692 
7731 

7982 

8055 8062 
8291 8294 
8502 8515 
7640 7684 
7899/M 7912/M 
7109/M 7109 
7184/M 7184 

Memodify, 


1.0 89102 
REFERENCES 

8415 8415 

7625 

8116 

8207 

8352/P 8354/P 

8456 

6816 

7410/M 

7789 

7871/P 7872/P 

8101 

8101/P 8106 

8272/P 8306 

8331/P 8361/P 

8370/P 

8460/M 8461/P 

8376/M 8380 

70393 

71797 7804 

$773 

5780 

3523 5718 

5789 

3530 

3531 

5344 5745 

3531 

3534 

3531 3532 

3524 

5780 

6377 

5383 

3533 6342 

3496 $382 

5430 5432 

5562 5563 

5577 5619 

6287 

5578 5620 

S876 

6656 

5836 §837 

$835 $840 
323 325 
346 349 

3530 6377 
360 363 
28 31 
54 57 
78 8&1 
Memodify, 


6366 


6331 
6474 


3350 


6575 


7635/M 
8291/M 
8515/M 


8065 
8300 
8521 
7744 
7916/M 
7116 
8411/M 


Azsattribute, 


8415/M 


8108 
&8307/P 
8361/P 


8380 


3532 


Azsattribute, 


6573 


6341 
6483 


7668/M 
8294/M 
8521/M 


8324 
8533 
8513 
7922/M 
7116/M 
8411 


Szsubscript, 


8415 


8109 
&8310/P 
8363/P 


8398/M 


5819 
5605 


Sesubscript, 


1989-08-21 13:33:34 
6355 6371 6372 6384 
6493 6547 6568 6621 
7692/M 7731/M 7982/M 8055/M 
&8300/M 8324/M 8337/M &8357/M 
8533/M 
8337 8357 8420 
7116 7140 7141/M 7141 
8411 8411/M 8411 8415/M 
IsI/O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
8112 
8316 8317/P 8320/P 8326 
8363/P &8368/P 8368/P 8370/P 
840393 /M 
58206 
334 337 340 343 
40 44 48 51 
66 68 72 75 
$1 95 $8 101 


IsI/O ref, 


Reread, W-ewrite, 


PAGE 546 


P=parameter 


PAGE S47 


P=parameter 


REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 
MMPS$MODIFY_ PAGES 
IDENTIFITER=* S56 $ se 8 +5 sees ~ -DEFINED----+-*----+--++->-REFERENCES 
ON LINE 
104 107 
128 131 
155 158 
- 180 183 
205 208 
234 237 
260 263 
285 289 
317 319 
dfc$min_esm_division_size 3529 3533 
dfc$min_esm_memory size 3505 6342 6356 
dfc$min_mm_recovery errors 3193 375 379 
dfc$mock_connection 5749 5745 
dfc$monitor 5809 5628 
dfc$monitor_ allocate 5589 5579 
dfc$monitor_io 5589 5579 
dfc$queue_ assignment _strng size 5604 5565 
dfc$recover ing 5805 5794 
dfc$task_services 58093 5638 
dfc$terminated 5805 5780 
dfc$unrecovered disk_error 6032 6O60 
dfd_p 6713 6733/M 
dfd_op 7820 7306/M 
dfd_op 7887 7906/P 79819/P 
dfe$server_has_terminated 170 8294/P 
dfp$fetch page status 6682 8285 
dft$allocated_command_buf fer 5713 5712 
dft$allocated data _rma_list 5674 5673 
dft$allocated monitor_buffer 5737 5736 
dft$channel definition 6370 6344 6366 
dft$channel_specification 6329 5347 5348 
dft$connect ion_address 54793 5474 5475 
dft$connect ion_descriptor 5473 5460 
dft$connect ion_f lags 5487 5480 
dft$connect ion_type 5748 5343 S566 
dft$cpu_queue 5553 5447 
dft$cpu_queue_entries 5558 S555 
dft$cpu_queue_entry 5609 5558 
dft$cpu_ queue header 5561 5554 
dft$cpu_queue_pva_entries 5434 5420 
dft$cpu_ queue pva_entry 5446 5435 
dft$data_ descriptor 5534 5501 5502 
dftS$dama_adapter 5423 5410 
dft$driver_ queue 5451 5443 
dft$driver_ queue_entries 5492 5453 
dft$driver_queue_entry 5494 5492 
dftS$driver queue header 5456 5452 
adft$driver_queue_header_filags 5463 5457 
dft$driver queue _pva_entries 5432 5419 
dft$driver_ queue pva_entry 5442 5433 
dft$driver_ queue rma_entries 5430 5418 
dft$driver_ queue _rma_entry 5437 5431 
* * REFERENCE ABBREVIATIONS M=modify, 


REFERENCES OF mmm$mtr_user_reg 
MMPSMODIFY_PAGES 


IDENTIFIER---- eee ee eee ere eee ee D 
oO 

dftS$esm_base_addresses 

dftSesm_ definition _table_ entry 

dftS$esm_pp_informat ion 

dftSinquiry message 

dftSingquiry tracer 

dftS$interrupt 

dftS$ilifetime 

dft$mainframe_set 

dft$maximum_data_bytes 

dftS$monitor_io_types 

dft$p_allocated_data_rma_list 

dft$p_ command_ buffer 

dft$p_data_ rma_list 

dft$p_queue_interface_tablie 

dft$p_send_data 

dft$partner_ status 

dft$pp_element_reservat ions 

dftS$pp_status 

dft$q_interface directory entry 

dft$queue_ directory 

dft$queue_ directory index 

dft$queue_entry_ flags 

dft$queuve_entry_ index 

dftS$queue_entry location 

dft$queue_ entry type 

dft$queue_ index 

dft$queue_ interface directory 

dft$queue_ interface table 

dftSrequest buffer 

adft$request buffer directory 

dft$request buffer entries 

entry 


entry_flags 


dft$request_ buffer 
dft$request_ buffer 
dftSresponse_ flags | 
dft$response_ parameter 
dft$retransmission_digit 
dft$rpc_progress_ record 
dft$send_data_size 
dft$send_parameter_ size 
dftS$server iocb_error_ condition 
dft$server_ lifetime 

dft$server state 
dft$side_door_ports 
dft$transact ion_data 
dft$transact ion_digit 
dft$transact ion state 

' disk _file_ descriptor _p 

dmc$a2 

dmc$allocated length 

dmc$asid 

dme$byte_ address 
dmc$bytes_per_allocation 


xe 


uest_ processor NOS/VE CYBIL/II 


EFINED-~------- “cee -REFERENCES 
N LINE 

5399 $392 
6340 6337 
$354 53493 
6241 6232 
6246 6242 
5468 5458 
5876 $872 
3496 3446 
6377 6346 
5589 §633 
S673 5585 
5711 5622 
5660 5625 
5387 5340 
S840 5640 
5763 5570 
6649 $358 
$361 S355 
5338 S336 
54093 5394 
6656 §324 
5506 5495 
5820 5326 
5323 5313 
5803 5627 
5819 5325 
5335 §333 
$389 5387 
6282 6278 
6271 5391 
6287 6284 
62392 6288 
6300 62393 
6219 6211 
6229 6213 
6252 6248 
5851 5643 
5839 5642 
5836 5859 
53997 5383 
5872 5571 
5804 5772 
6364 6358 
5592 5584 
6251 6247 
5918 5618 
2018 6732 
1348 1352 
509g 447 
509 449 
510 451 
510 453 


REFERENCE ABBREVIATIONS 


Msemodify, 


e 


1.0 89102 


6345 
6350 
5350 
6295 


3447 


6360 


5623 


5641 


5617 


5648 


5807 


5925 
7906 


1836 


1106 
134 
161 
187 
213 
240 
266 
233 


382 


5503 


Azattribute, 


6359 


3559 


5650 


6243 


Azattribute, 


1989-9 
113 116 119 
138 142 145 
164 167 170 
19960 1393 196 
217 2206 223 
243 246 2493 
269 272 275 
298 301 305 

S=subscript, 21/0 ref, 
1989-90 

3560 

5651 5854 5855 

Szsubscript, 121/0 ref, 


8-21 13:33:34 PAGE 548 
122 125 
148 182 
173 176 
199 202 
226 230 
253 256 
279 282 
312 314 
Reread, Wewrite, P=parameter 
8-21 13:33:34 PAGE 549 
5860 
Reread, Wewrite, Pz=parameter 


REFERENCES OF mmm$mtr_user_request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 550 


MMPSMODIFY_PAGES 


IDENTIFIER--- eee eer rete ete rene DEFINED---+rc-r creer eee REFERENCES 

ON LINE 
dmc$bytes_per_level_2 1769 1777 
dmc$chapter_length 517 501 
dmc$c lass 510 455 1538 
dmc$c lass_ordinal 510 457 1540 
dmc$c lear_space 511 459 
dmc$default_number_fau_entries 1981 1974 
dmc$device_file_list_index 511 461 1838 
dmc$eof_byte_address 511 463 
amc$eoi_byte_ address 512 465 
dmc$fau_free 1976 7920 
dmc$file_ nash 512 467 
dmce$file_ kind 513 473 18544 
dmc$file_ limit S12 469 
dmc$file status 512 471 
dmc$global_file_ name 513 475 
i\dmc$internal_vsn 513 477 1840 
dme$level_1_table_size 1765 1769 1772 
dmc$ locked _ file 513 479 
admc$ logical length 514 481 
dmc$master _volume_required 514 483 1546 
dmc$max_bytes_ per_allocation 1344 396 1337 1339 1340 
dmc$max_bytes_per_dau 1878 1870 
dmc$max_bytes_per_mau 1914 13900 
dmc$max_class_ordinal 1369 1366 
dmc$max_dau_address 1880 1874 1922 
dmc$max daus_ allocation 1882 1871 
‘admc$max_daus_ position 1884 1872 1924 
dmc$max_daus_ transfer 1886 1873 
dmc$max_device_ file_list_index 1387 1384 
dmc$max_fau_entries 1982 1975 
dmc$max_file_ hash 1397 422 424 1394 
dmc$max_mau_address 1922 1910 
dmc$max_maus_per_allocation 19816 1902 1903 
amc$max_maus_per_dau 1818 , 1904 1905 1922 1924 
dmc$max_maus_per_transfer 1920 1907 1908 
dmc$max_maus_ position 1924 1808 
dmcec$max_transfer_ size 1686 1681 
dmc$min_bytes_per_ allocation 1343 1338 
dmc$min_bytes_per_dau 1877 1870 
dmc$min_dau_address 1879 1874 
\amc$min_mau_address 1921 : 1910 
dmc$min_maus_per_allocation 1915 1901 
dmc$min_maus_ per_dau 1917 1904 
dmc$min_maus_ per transfer 1918 1906 
dmec$over f low 514 485 
dmc$owner 515 487 
dmc$preset_value 515 489 
‘ame$queue_status 517 505 
amce$recorded vsn 515 491 1542 1842 
amc$requested allocation size 515 493 1548 
dmc$requested _transfer_size 816 495 
dmc$requested_ volume 516 497 


* ex REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S:subscript, I=I1/0 ref, Reread, Wewrite, Ptparameter 


REFERENCES OF mmm$mtr_user request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 551 


_MMPSMODIFY_PAGES 


IDENTIFIER ++ ee reer ren reece “DEF INED*:+<-e eee eestor eee REFERENCES 
ON LINE 
dmc$setname 516 439 1550 
dmc$wr ite mode 517 503 
- Gmp$fetch_page status 6708 8282 
dmp$get_disk_file_descriptor_p 6718 7306 
dmp$get_fau_entry 6775 6805 7919 
amp$get_level_2_ ptr 6761 6771 67397 7913 
_dmt$access kind 1518 1524 
dmtS$active_volume_table_index 1855 1809 
dmt$allocation_size 1337 404 454 434 1549 1664 
dmt$allocation_styles 1348 1821 
dmt$bytes_ per mau 1800 1814 
dmt$c lass member 1361 405 456 1360 1539 
dmt$class_ordinal 1366 406 458 1541 
amt$dau_address 1874 1968 
admt$daus_per_ allocation 1871 1816 
dmt$daus_ per position 1872 1815 
-amt$delete_count 417 393 
dmt$delete_ logging _count 1825 1811 
dmt$device_file_list_index 1384 462 1810 1839 
dmtSdisk_file descriptor 391 6718 6775 7857 
‘dmt$fau_states 1976 1969 
dmt$file_allocation_unit 1967 1737 1798 1365 6777 7860 
dmt$file_attribute_ keywords 5093 446 1837 1835 
-amt$file hash 1394 468 
dmt$file_hash_thread 420 422 
dmt$file_medium_descriptor 1806 410 1820 
dmt$fmd_attribute 1834 1830 
‘dmt$ fmd_index 1894 399 409 1828 1870 
dmt$global_file_ name 1400 476 1663 5976 
dmt$internal_vsn 1511 478 1817 1841 
,amt$level_1_index 1772 398 1786 6782 
dmt$level_1_table 1786 387 6784 
dmt$level_2_ index 1777 1797 6783 
dmt$level_2 table 1797 6762 6785 
‘dmt$ locked file 1521 480 
dmt$maus_per_dau 1804 1818 
dmt$maus_per_transfer 1906 1819 
amt $queue status 1674 1661 
dmt$requested volume 1554 408 498 
dmt$system_file_id 1839 1808 3478 §632 5378 
dmt$transfer_size 1681 407 496 1665 
~dmt$usage_ count 1693 1662 
dmt$write_ lock 1520 1526 
,,€01 8072 8116/M 8116 8116 8116 
eoi 8165 8195/M 8198 &203 8203 
eoi_ byte address 2004 8116 8116/M 8118 8122 8126/M 8195 8220/M 
eoi_ modified 2027 8128/M 
‘eoi_state 2005 8115 8116/M 8123 8127/M 8221/M 
fat _upper_bound 398 6785 7919 
~fde_entry p &253 &8272/P 8278 8282/P &8285/P &302 8302 &303 8304 


*e* REFERENCE ABBREVIATIONS : Memodify, Aztattribute, S:subscript, I21/0 ref, Reread, Wewrite, P:tparameter 


REFERENCES OF 


MMPSMODIFY_ PAGES 


IDENTIFIER----<--++¢ --+-+-+-- 


file_entry index 
file hash 


file hash 

file limits enforced 
Find_eoi 

find _eoi 


find starting pft_entry 


Fixup chapter, length 
flags 
found 
found 
found 


gfc$fde_ size 
gfc$fde_table_ base 


gfc$fk_catalog 
gofc$Ffk_job_local_file 


gfc$fm_mass_storage_ file 


gfc$fm_served_file 


REFERENCES OF 


MMPS$MODIFY_ PAGES 


IDENTIFIER------+----ee- 


gfc$fm_transient_segment 


gfc$monitor_inter locks 


gfc$ps_page_doesnt_exist 
gfc$ps_server_ terminated 
gfc$ps_volume_unavai lable 


gfc$tr_job 


gfc$tr_ system 


gofp$mtr_ convert _job_mode_fde_p 
gfp$mtr_convert_job_mode_fde_p 


gfpS$mtr_get_fde_p 


gfp$mtr_get_locked_fde_p 


* et 


gfp$mtr_get_ sfid_from_fde_p 


gfp$mtr._unlock_fde_p 


gft$allocation_unit_size 


gft$attach count 
gft$fde_ fiags 
gft$file desc entry _p 
gft$file_ 
gft$file_kind 
gftS$file media 


descriptor _entry 
gft$file_ descriptor_index 


gft$locked_ file _desc_entry_p 


gftS$open_count 
gftSpage_ status 
gft$queuve status 
gft$segment_lock_info 
gft$signature_ lock 


gftS$system_file_ identifier 


gft$tablie_ residence 
gft$transfer_unit_size 
gft$trick_pointer 


hash 

hash 

hash 
hash_sva_param2 
head 

i 

i 

i#move 
i#program_error 


i#real_memory_address 


NOS/VE CYBIL/II 1.6 89102 
~DEFINED-~----+--+-+---++*+>+-+REFERENCES 
ON LINE 
8305/M 8305 
8365/M 8372/M 
&380 8381/P 
8417/P 
3286 8101/P 
6718 6727 6730 
6812 6814/M 6815 
6825 6847/M 6848 
6869 6876/M 6876 
6871 6876/P 6878/P 
6988 6397 6898 
7049 7054/P 
7277 7283 7287/M 
7820 7871/P 7871/P 
7820 7871/M 7871 
7820 7872 7872/M 
7820 7306 7906 
7859 7871/P 7872/P 
8072 8101/M 8101 
8072 8116/P 8116/P 
8072 8116 8116 
8072 8116 8116/M 
809 1 8101/M 8105 
8122 8123 
8157 8182 8182 
8157 8183 8183/M 
8158 8182/P 8183/P 
8470 84399 8499 
8470 8500 8500/M 
8471 8499/P 8500/P 
397 6733 6796 
1944 6837 6876 
1946 6836 6848 
8132/M 8182/M 
2001 6848 6876 
3063 8282/P 
8072 8116 8116 
8202 8202 8211 
7973 7973 7981 
8157 8116 8231 
1994 8128/M 
8072 8116 8116 
8166 8207 8208 
8447 8456 8457 
6864 6837 6876 
6862 6837 6863 
8499 
1573 1585 
1575 1584 
2055 2017 6727 
2056 2020 8284 
REFERENCE ABBREVIATIONS Memodify, Azattr 
NOS/VE CYBIL/II 1.0 89102 
-~---DEFINED ---REFERENCES 
ON LINE 
2055 7914 8279 
68390 6877 7053 
6694 8280 
6701 8293 
6699 8290 
1957 6840 6876 
8132 8133 
1957 6839 6876 
6808 6820 8101 
6803S 6818/M 8101/M 
6823 6852 6876 
6869 6881 7871 
6987 7011 8116 
7049 7087 
2041 2006 
2046 1997 1998 
2026 1994 
2210 3286 6718 
1991 420 1996 
1954 1944 
1569S 474 1545 
2055 2016 
2214 6683 6709 
8031 8158 
2085 1939 2090 
6694 6685 6713 
1750 506 2003 
20893 2002 
2061 1992 
1943 1939 2230 
6889 6995 
1957 1945 6833 
2052 2007 
6740 6725 
6830 6836/M 6843/M 
6869 6876/M 6876/M 
7820 7871/M 7871/M 
7620 7625 7626 
2100 7508 7509/S 
8072 8116 8116/S 
8167 8225 8226/8 
7082 7098 7797 
6754 6728 6848 
8415 
7100 7810 
7163 7109 7109/M 
8411 8415 
2223 7285 7872 
3342 7872/P 
6390 7O003S/M 


x 


mmum$mtr_user_ request processor 


mmm$mtr_ user request processor 


REFERENCE ABBREVIATIONS 


Memodify, 


8388/M 


6816/M 


6999 


7905 
8101/M 
8116 
8116 
8133 
8106 
8126/M 
8182 


81935 
8439 


79319 
6998/M 
6876 
8499/M 
6997 


8116 
8218 


693398 
6876 


7905 


ibute, 


7871 


7004 
8182 
7001 
7871 


8132 


6808 
2210 


1581 


6871 
8253 


8251 


2896 
7278 


8302 


8116/5 
8227/8 
7804 
8876 


7116 
8415/M 
8116 


Artattribute, 


6816 


7906/P 
8101 
8116/M 
8132 
8133/M 
8108 
8127/M 


&8220/M 


73919 
7871 
6876 


7871 


7871 
6998 


7906 


S:subscript 


7285 
8183 
7871 


8182 


6809 
2214 


2000 


6888 
8471 


3056 
8097 


&380 


7116 


7137 
8415 
8133 


S=subscript, 


1989-08-21 
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8315/M 8331/P 8338 
8377 8378 83785 
8396 83837 8400 
6818 

7914 7918 

8101 

8116/M 

8132 8132 

8112/8 8115 8116/P 
8128/M 8132/P 8133/P 
8221/M 

8116/M 8132/M 8182/M 
6337/M 7871 7871 
8116 8132 8182 
8116 8132 8182 
7871 8116 8132 
7918 8281 

», IltI/0 ref, Reread, 


7871 
8499 
8116 


8499 


6809 


6724 


7043S 


3243 
8175 


8380 


7138 


7178 


8183 


Ie1/O ref, 


1989-08-21 


7872 
8500 
8132 


6812 


7214 


4417 
8491 


8381 


7871 


7182/M 


8500 


8344/P 
8380 
8401/M 


8118 
8137/P 


8489/M 
8116/M 


8499 


8499 
8182 


Wewrite, P=parameter 


13:33:34 PAGE 553 

8116 8116 

8182 8499 

6825 7859 

7277 7315 

6823 6869 

8381/S 

739306 8411 

8411 8411/M 


Reread, Wtewrite, P*parameter 


REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 


MMPSMODIFY_ PAGES 


TRENT LE LER S20 22 23 6 ieee es Sie ee DEFINED-----e rere ere ee ~REFERENCES 
ON LINE 
ijl_ordinal O37 7005 8116 8132 8182 
ijl_ordinal 8072 8116/P 8116/P 
ijl_ordinal 8072 8116/M 8132/M 
ijl_ordinal 8092 8132/P 8133/P 
ijl_ordinal 8157 8182/M 
ijl_ordinal 8168 8182/P 8183/P 
ijl_ordinal 8470 8499/M 
ijle_p 3343 7871/P 
1jle_p 6824 6841 
ijle_p 6869 6876 
ijle_p 6870 6876/P 
ijle_p 7104 7110 7112/P 
ijle_p 7820 7871/P 
ijle_p 7820 7871 
ijle_p 8241 8411 8411/P 8415 8415/P 
ijle_p 8261 8382/P 8411/P 8415/P 
ijlo 7279 7285 
ijlo 7820 7872 
1jlo 8072 8116 8133 
ijio 8157 8183 
1Tjlo 8470 8500 
tTjlo 8489 84939/P 8500/P 
in _use 2224 7284 7872 8116 8133 
in_use TO36 7111 7114/M 7114 8411 
8415 
include partiai_pages 7296 7885/P 
index 2072 7508/M 8381/M 
init _new_io 2381 8345/P 8346/P 
initial lock_offset 7655 7675/M 7686/P 7681/P 
10_already_ active 8264 8345/P 
io count 8263 8345/P 
io_error 4101 8528/M 
io_function 5304 8343/M 
10_id 8262 8342/M 8343/M 8345 /P 
ioc$allocate 5936 5312 
iocS$max_unit_ number 1861 1855 1864 
ioc$no_error 4118 8528 
ioc$read_ahead_on_server 5936 5314 
ioc$read_for_server 5935 5310 
ioc$read_from_client 5935 5311 
ioc$read_ page 5930 5307 
iec$swap_in 5331 §305 
ioc$swap_out 5931 5305 
iec$write_for_ server 5936 5310 
ioc$write_locked_ page 5933 82593 
iec$write_page 5930 5307 8259 
iecS$write to client 5936 5311 
iotS$interrupt 6319 5470 
iot$io_error 4118 3479 4101 
iot$io_ function 59330 5304 5631 7317 8259 
iot$logical_ unit 1864 6214 
iot$port number 6324 6321 


*** REFERENCE ABBREVIATIONS : Memodify, Azattribute, S:subscript 


. e 
REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 
MMPSMODIFY PAGES 
IDENTIFIER--+------- eese se se sss DEF ENE D:e:S:2 2 Ses. cueceie son ieie REFERENCES 
ON LINE 
iotSpp_number 6314 5411 5412 
ieotS$transfer count 4555 4543 
iotype &258 8343 &8344a/P 
jmc$detached_ job_wait_time_max 4218 4215 
jmc$highest_det_job_wait_time 4228 4218 4229 
jmc$highest_prio_age_interva} 4485 4476 4486 
imc$highest_ service accumulator 3947 3948 
imc$highest service _ factor_vailu 4509 4502 
jimc$nhighest_ working set_size 4254 424s 4255 4257 42593 
jmc$ies_job_swapped 3727 3736 
jimc$ies_swapin_in_progress 3726 3735 
jmcS$iss_idle_tasks_initiated 3742 3769 
jimc$iss_swapin_io_ complete 3767 3770 
imc$iss_swapin_requested 3763 3770 
jmc$iss_swapout complete 3762 3769 
jmc$iss_swapped_io_cannot_init 3753 3780 
imc$iss_swapped_no_io 3744 3779 
jimc$keyword_offset_maximum 3964 4246 4477 
jmc$k j1_maximum_entries 3381 3374 3375 33839 
jmc$kol_maximum_entries 3391 3376 
imc$lock_ajl 7124 7111 7112/P 7114 8411 
8415 
jmc$max_active_jobs 3372 4458 4466 4467 
jmc$max_aji_ord 3373 3366 3372 
jmc$max_dispatching contro! 3686 3690 
jmc$max_dispatching priority 3608 3568 3571 3572 
jmcS$maximum_job_classes 3877 3880 
jmc$maximum_job_count 3388 3381 
imc$maximum_output_ count 33398 3391 
_imc$maximum_service_classes 3380 3983 
- jmc$min_dispatching_control 3685 3689 
jmc$null_service_ class 3973 3974 
imcSpriority_aging_interval_max 4476 4473 
‘jmc$priority_ pi 3622 3569 5263 
jmc$priority p10 3631 3570 
jmc$Spriority_p14 3635 3570 5263 
jmc$priority p8& 3629 3568 
jime$Srequired offset 3962 42606 
jmcS$reserved_ajis 3377 3372 
imc$service_ accumulator maximum 3939 39336 
jme$service factor value max 4502 44as9 
imcSsystem_default_offset 3963 3964 4262 
jmc$system_supplied_name_size 4015 4012 
jmcSunlimited_ offset 3960 3949 4219 &230 4286 
imcS$unspecified_offset 3961 4258 
jmcSworking set_size_maximum 4245 4242 
imp$free_ ajl_with_lock 7127 7112 411 8415 
imp$unlock_ajl 7103 7118 8411 8415 
imtS$active_ job_list 7043 7021 
jmtS$active_job_list_entry 7035 7043 
imt$ajl_ordinal 3366 3323 3415 5630 7AO7 


xex REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S:subscript 


1989-08-21 13:33:34 
8439 
8183 8500 
8411/M 8411 8415 841 
, I1tI1/0 ref, Reread, Wewrite, 


4261 


&8411/P 


4487 


1989-08-21 13:33:34 


8411 


» 11/0 ref, 


8415 841 


Reread, Wewrite, 


PAGE 554 


5/M 


P>parameter 


PAGE 555 


5/P 


Psparameter 


REFERENCES OF mmm$mtr_user_request processor NOS/VE CYBIL/II 1.0,891062 1989-08-21 13:33:34 PAGE 556 

MMPS$MODIFY_ PAGES 

IDENTIFIER: ---+c7 + eee e-% wore ee DEFINED------- oe us ele REFERENCES 

ON LINE 

jmt$de layed _swapin_work 3552 3445 3556 

imt$detached_job_wait_time 4215 4200 

imt$dispatching_ contro} 3656 4441 

jimtS$dispatching_control_index 3689 3646 3656. 

jmt$dispatching_ controls 3659 3657 

jmt$dispatching_priority 3568 3315 3427 3647 3648 36493 3661 4389 4391 
7570 7571 

jmt$ijil_block_index 2202 2198 

jmt$iji_block_ number 2201 2197 

jimt$ijl_dispatching control 3645 3428 

imt$ijil_entry_ status 3722 3414 

jmt$iji_ordinal 2196 2223 3342 3434 3462 4030 4031 4093 4190 
5306 6390 6994 7015 7O37 T2793 7562 8092 
8168 8488 

imt$iji_page_fault_count 3796 37391 3792 3793 

jimt$ijl_page_stats 37390 3786 

jimt$ijl_service_class_stats 3784 3449 

jmt$ijl_statistics 3829 3448 

jimt$ijil_swap_count 3805 3801 3802 

jmtS$ijl_swap_ counts 3800 3468 3787 

jmt$ijl_swap_status 3740 3417 3418 3419 

jmtSinitiated_job_list_entry 3411 3343 4oS5 4189 6824 6870 7038 7104 7128 
7529 8261 

jmtS$input_fitle_ location 3919 3914 

jmt$jl_job_leveler_state 5945 5940 

jmt$ji_job_leveler_status 5933 5569 

jmt$job_abort_ disposition 38328 3912 

jmt$job_ciass 3880 3473 

jmt$job_contro!l_block 4171 3325 

jmt$ job_mode 3883 3430 

jmt$job_priority 3888 3470 3471 4450 4451 4452 4453 

jmt$job_recovery disposition 3931 3913 

jmt$job_system_id 4234 4186 

jmt$k jil_index 3899 3416 4234 

jmt$maximum_active_jobs 4458 4435 

imtS$priority_aging_ interval 4473 4443 

imt$queue_file_ijl_information 33911 3455 

jmt$scheduling data 3461 34393 

imt$scheduling priority 4449 4442 

imt$service accumulator 3936 3463 3464 3465 4433 4434 

jimt$service_class_index 39383 3474 4426 4436 

imt$service_ class_name 4491 4428 44293 

imt$service_ factor value 4499 4437 

imt$service_ factors 4495 4437 

imt$swap_ data 3477 3441 

jmt$swapout_reasons 3986 34698 

jmt$swapped_job_entry 4001 3486 4056 4209 

jmt$system_supplied name 4012 3412 4184 

jmt$task_time_slice 3699 3679 3680 

imt$time_slice_ values 3678 3663 4402 

jmt$user_supplied_ name 4238 4185 

jmt$working set_size 4242 4196 4197 

* es REFERENCE ABBREVIATIONS Mtmodify, Azattribute, S=subscript, I=1/0 ref, Reread, Wewrite, P=tparameter 


REFERENCES OF 
MMPS$MODIFY_ PAGES 
IDENTIFIER----- we ew ee eee eee ee - 
jimv$aji_p 


imv$nuli_ijl_ordina} 
jscS$isqi_swapped_io_compieted 
jscS$isqi_swapped_io_not_init 
jst$changed_asid_entry 
jst$ijl_swap_queue_id 
jstSijil_swap_queue_ link 
jst$io_control_information 
jistS$swap_file_ descriptor 
jist$swapped_ page _ descriptor 
jstS$swapped_page_ descriptors 


last_pfti_index 
last_written pft i 
Jength 

length 

length 

length 

length 

length 
level_1_index 
level 1_index 
level 2 index 
level 2. index 
Tink 

Tink 

local _fde_p 
local _ fde_p 
lock 

lock 

Tock 

lock 

lock 

1leck 

lock 

lock 

Tock 

lock 


lock 


lock, length 
lock length 
Tock _page_type 
lock, pages 
lock _ pages_ loop 
lock sva 


locked 
locked 
locked for read 


mmm$ mt rr_user request processor 


DEFINED 
ON LINE 
7021 


7O15 
4035 
4034 
4078 
4034 
4028 
4042 
4054 
4063 
4060 


7470 
8265 
2941 
7084 
7646 
7711 
71775 
8473 
6782 
7820 
6783 
7820 
4090 
4143 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


REFERENCES 


7005 


1.0 89102 


7246 
8346/P 
8060/P 
7094/M 
7667 
7730 
7737/M 


6795 
7919 
6800/S 
7919/8 
8015 


6731 
7906 


7114/M 
8415 
8132 


T247 


7094 
F672 
7737 
7737 


6787/S 
7819/8 


6732 
7906 


7109/M 
7116/M 
7141/M 
7182/M 


8411/M 
&8411/M 
7697 
8537 
7703 
7674 
7871 


8411 
8305/M 


7114 
8415/M 
8182 


7251 


7804 


7109/M 


7184/M 
8411/M 
8411 


7698 
8538 


7674 


&415 
8305 


8116 
8415 
8439 


7890 


7804/M 


7109 
7116/M 
7143/M 
7184 
8411 


8411/M 


7675 


8313 


1989-08-21 13: 
8132 8182 
8499 
79325 7825 
7804 
8415 8415 
8415 8415 
7684/P 7686/P 


8372/M 8372 
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8411 


7325 


8415/M 


8415/M 


7691/P 


8377 


Mzemodify, Atattribute, Stsubscript, I=1/0 ref, R=read, Wewrite, Psparameter 


me 


eee 


,REFERENCES OF mmm$mtr_user_request_ processor NOS/VE CYBIL/II 1.0 89102 
MMPSMODIFY_ PAGES 
JEOEN TEE LE RS ses S62) sass ere S38 e- -DEFINED---c-s2e+--° ~°*- “REFERENCES 
ON LINE 
6378 &379 
locked _for_write | 2091 8302 8314 
‘locked page 4096 7690 7696/M 
m 2268 7310 8116 
max _eoi 8072 8116/M 
max_eoi 8169 8199/M 
media 2016 6727 7905 
mmc$ 2538 2544 2547 
2569 2572 
2594 2597 
2619 2622 
2643 2646 
2667 2671 
2692 2695 
2716 2719 
2742 2746 
2767 2770 
2791 2794 
2817 2820 
2841 2844 
2865 2869 
mmc$assign_active_nutl 3096 3097 
mmc$cell_ pointer 3195 3200 
mmc$eoi_ actual 2116 8127 
mmc$eoi_rounded 2116 8116 8221 
smmc$eoi_uncertain 2116 8115 8130 
mmc$heap_ pointer 3196 3204 
mmc$iocb table _ size 6673 6666 
mmc$iorc_ await io _completion 6101 6094 
mmc$iorc write pages 6101 60392 
mmc$irs active 6071 6065 
mmc$irs_ complete 6071 6O66 
.mmce$irs none 6071 6065 
mmc$kw_asid 3121 3157 
mmc$kw_clear_space 3119 3144 
mmc$kw_current_segment_ length 3118 3138 
mmc$kw_error_exit_ procedure 3120 3148 
mmc$kw_gi_key 3120 3142 
mmc$kw_hardware_ attributes 3122 3151 
_mmc$kw_inher itance 3122 3159 
mmc$kw_max segment_length 3119 3140 
mmc$kw_preset value 3121 3146 
mmc$kw_ps_transfer_size 3123 3167 
smmc$kw_ ring numbers 3117 3133 
mmc$kw_segment_access_ contro} 3121 3155 
mmc$kw_segment_number 3118 3136 
.mmc$kw_shadow_segment 3123 3161 
mmc$kw_software_ attributes 3120 3153 
mmc$kw_wired segment 3123 3164 
mmc$ip_aging_ lock 2949 7696 7745 
mmc$ip_not_ locked 2949 7690 7746 
*** REFERENCE ABBREVIATIONS M=modify, 


REFERENCES OF mmm$mtr_user_req 
'MMPS$MODIFY_PAGES 


IDENTIFIER- cece ere eer teres D 
8 
mmc$iss_lock_for_read_r3 
mmc$iss_lock_for_read_user 
_mme$itss_loeck_for_ write r3 
-mme$iss_ lock _for_write_user 
mmc$i1ss_none 
mmc$iss_ queued for_lock_r3 
mmc$iss_ queued for_lock_user 
mmc$ilus_ free 
mmc$lus_ lock _for_read 
mmc$lus_ lock for_write 
' mmc$ilus_ lock segment 
mmc$ lus_none 
mmc$ lus protected write 
mmc$lus_remove_from_working set 
mmc$ lus unlock segment 
mmc$lus_write 
mmc$max_rma_list_length 
“mmc$pq_avail 
mmc$pq_ free 
mmc$pq_job_fixed 
-mmc$pq_ job_working set 
mmc$pq_shared_ first_site 
mmc$pq_ shared num_sites 
mmc$pq_shared_other 
mmc$pq_ shared site_061 
mmc$pq_ shared site_25 
mmc$pq_ shared task_service 
mmc$pq swapped _io_error 
mmc$pq_ wired 
mmc$sat_read_or_write 
mmc$segment_fault_processor_id 
‘mmc$sequence_ pointer 
mmc$server_iocb table_size 
mmc$sf_ get _segment_length_fde_p 
_mmc$sf_ set segment_length_fde_p 
mmc$ssk_none 
mmc$ssk_segment_number 
mmc$wmp_io_active 
mmc$wmp_io_complete 
mme$invalid request 
‘mme$ leck_unlock_invalid length 
,mme$no_matching_offset 
mme$not_valid_in_page_tablie 
mme$page_already locked 
mme$page_not_in_page_ table 
“mme$segment_locked another _task 
mme$segment_locked_by_ task 
mme$segment_not_ locked 
 mme$volume_unavai lable 
mup$asid 
mmp$convert pva 
mmp$delete pt_entry 


eeX 


west_processor NOS/VE CYBIL/II 1.0 89102 
EFINED----- + Sean re S: Se 21's REFERENCES 
N LINE 
3256 8308 8367 
3256 8311 8394 
3257 8318 &360 
3256 8321 8407 
3255 8237 8336 
3255 8298 8327 
3255 82939 8323 
2403 8353 
2400 &301 8387 
2401 8313 
2382 2383 8274 
2402 8355 
2402 8258 8341 
2403 8351 
2382 2385 8335 
2403 8258 8341 
5951 5956 5957 
2284 2330 
2283 2342 8116/P 
2324 2331 2343 
2326 2343 2344 
2334 2338 
2335 2338 
2233 2333 
2235 2334 
2319 2339 
2288 2332 
2322 2342 
2286 2329 7967/S 
7406 &8269/P 8452/P 
4860 ao14 
3135 3202 
5968 $371 
3291 8104 
3232 8121 
3275 3247 
3276 3245 
7330 8347 8348 
7330 8347 
2671 &8055/P &8062/P 
2686 7668/P 7731/P 
2667 7982/P 
2658 7635 
2649 7692/P 
2556 7628 8502/P 
2713 8324/P 
2710 8300/P 
2716 8337/P 
2807 8291/P. 
71898 7874 8116 
7211 8272 
7222 8116 8226 
REFERENCE ABBREVIATIONS M=modify, 


8388/M 
8315/M 
7745 


8209 


7906 
2550 
2575 
2600 
2625 
2649 
2674 
2698 
2722 
27493 
2773 
2797 
2823 
2847 
2872 


8052 


Azattribute, 


8227/P 


8065/P 


8515/P 


8137 


Asattribute, 


8388 
8338 
7746/M 


8526/M 


7914 
2553 
2578 
2603 
2628 
2652 
2677 
2701 
2725 
2752 
2776 
2800 
2826 
2850 
2875 


80593 


Sssubscript, 


8402 


8357/P 


8521/P 


8187 


Sssubscript, 


8420/P 


8533/P 


8505 


1989-08-21 


8386 8397 
8365/M 8376 
7918 8278 
2556 2559 
2581 2584 
2607 2610 
2631 2634 
26855 2658 
2680 2683 
2704 2707 
2728 2731 
2755 2758 
2779 2782 
2803 2807 
2829 2832 
2853 2856 
I=I/0O ref, 


1889-08-21 


l2I1/0 ref, 


8400 
8401/M 


2562 
2588 
2613 
2637 
2661 
2686 
2710 
2735 
2761 
2785 
2811 
2835 
2859 
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2566 
2591 
2616 
2640 
2664 
26893 
2713 
2739 
2764 
2788 
2814 
2838 
2862 


Reread, Wsewrite, Ptparameter 


13:33:34 PAGE 559 


Reread, Wewrite, P=parameter 


REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 560 


MMPS$MODIFY_ PAGES 
IDENTIFIER <2 22 Se Ss 8 ee eee are DEFINED--2--ee eee ee eee REFERENCES 
GN LINE 
mmpSfetch_pfti_array size 7229 7235 78390 
mmp$find next _pfti 7238 7256 7825 
mmp$get_ max _sdt_sdtx_pointer 7259 7269 7795 8385 
mmp$get_verify_asti_in_fde 7276 7290 7872 8116 8133 8183 8500 
mmpSinitialize find _next_pft i 7294 7885 
mmp$mm_free_ pages 7303 8140 8354 
mmp$mm_wr ite modified _pages 7312 8344 
mmp$modify pages 8470 8545 
mmp$mtr_change_segment_table 7775 7816 
mmp$mtr_ fetch _offset_mod_ pages 7820 7830 
mmp$mtr_ fetch pva_unwritten_pgs 7934 8020 
mmp$mtr_ltock_unlock_pages 8024 8068 
mmp$mtr_ lock unlock segment 8241 8424 
mmpSmtr_set_get_segment_length 8072 8149 
mmp$mtr_wait io completion 8441 8466 
mmp$process_ wmp_status 7370 8346 
mmp$purge_all_cache_map 7335 8116 8224 
mmp$purge_all_cache_map_proc 7350 7341 8116 8224 
mmp$relink_page_ frame 7379 8116 8227 8530 
mmp$remove_pages_ working set 7384 8352 
mmp$verify pva 7398 &269 8452 
mmp$xtask_pva_to_sva 7392 7962 8044 8454 
mmt$active_io_count 6100 5385 60893 7321 8263 
mmt$active segment_table 2235 7439 
mmtG$active_ segment_table_ entry 2220 2236 4066 4100 7206 7215 7298 7305 7316 
T3865 T7853 80390 8162 8246 
mmtSast_ index 2107 2003 23930 3485 4081 7199 7280 7854 8089 
8163 84388 
mmt$attribute_ keyword 3117 3132 
mmt$eoi_ state 2116 2005 8094 
mmt$giobal_page_queue_ index 2342 4156 
mmt$gqliobal_page_queue_ list 4156 7485 
mmt$global_page_queue_list_ent 4146 4156 
mmt$hardware_ attribute set 3186 3152 
mmt$hardware_attributes 3174 3186 
mmt$io_identifier 5302 5629 7320 8262 
mmt$S$io_ request status 6071 6064 
mmt$io_ status 6063 6073 6086 
mmt $iocb_ index 6666 5309 5315 
mmt$ job _page queue_ index 2343 4003 4157 
mmt$ job _page_queue_ list 4157 3440 
mmt $ 1 ink 2243 2221 4090 40391 4143 
mmt$ lock _segment_status 3255 3061 
mmt $ locked_page 2949 2939 4096 
mmt$lus_lock_type 2400 2384 
mmt$lus_ page _ disposition 2402 2386 
mmt $max_sdt 3000 3004 
mmt $max_sdt_p 3004 7261 7782 8255 
mmt $max_sdt x 3085 3089 
mmt $max_sdtx_p . 3089 7262— 7783 8256 
mmt $memory reserve _ request 4124 3433 
mmt $page_age 4111 4099 4115 4115 
xe REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, Stsubscript, I21/0 ref, Rtread, Wtwrite, P=parameter 
REFERENCES OF mmm$mtr_user_request_processor NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 561 


MMPSMODIFY_ PAGES 


TNERTIFIERS «908 s:< 62ers 6s ess se DEFINED------- rere ere REFERENCES 
ON LINE 

mmt $page_frame_ index 22493 2245 2245 4043 4045 4046 4047 4126 4127 
7223 7239 7243 7299 7323 7371 7379 7471 
7621 7862 73958 8173 8265 8449 8494 

mmt $page_frame_queue_id 2344 2229 4044 aos4 7380 

mmt$page_frame_table 4105 F477 

mmt$page_frame_table_entry 4089 4064 4105 7610 7658 T722 7957 8493 

mmt$page_queue_ list _entry 4142 4147 4157 

mmt$page_ selection _criteria 2955 7297 

mmt$pfti_array 7467 7461 

mmt$rb_ change _ segment_table 2528 7776 

mmt$rb_fetch offset mod pages 2893 7821 

mmt$rb fetch pva_unwritten_pgs 2319 7935 

mmt$rb_lock_unlock_pages 2336 8025 

mmt$rb_ lock _unlock_segment 2376 8242 8252 

mmt$rb_ set _get_segment_length 3284 8073 

mmt$rb wait _io_ completion 2350 8442 

mmt$rma_list_entry 5959 5660 5675 5954 

mmt$rma_list_ index 5956 5954 

mmt$sdtx_ stream_data 3068 3064 

mmt$segment_access_condition 4887 4915 

mmtS$segment_access rights 3219 3060 

mmt$segment_access_ state 3225 3055 

mmt$segment_access type 7406 7399 

mmt $segment_ descriptor 2987 29397 3001 7216 8247 

mmt$segment_descriptor_extended 3053 3082 3086 T2197 7804/P 8248 

mmt$segment_inheritance 3103 3057 3160 

mmt$segment_pointer_kind 3195 3199 

mmt $segment_reservation_state 3265 3058 

mmt$server_iocb_entry 5975 5637 5972 

mmt$server_state 6107 5977 

mmt$set_get_subfunct ion_codes 3291 3288 

mmt $shadow_info 3240 3062 

mmt $shadow_reference_info 4512 4415 

mmt $shadow_segment_kind 3275 3244 

mmt$software attribute set 3188 3059 3154 

mmt$software_ attributes 3182 3188 

mmt$sub_reqcodes 6101 5982 6091 

mmt$write modified _ pages status 7330 7324 7370 8266 

mmt$xcb_ page _wait_info 4523 4401 

mmv$ast_p 7439 7284 7284 7285 7872 7872 7872 7876 8116 
8116 8116 8133 8133 8133 8135 8183 8183 
8183 8500 8500 8500 

mmv$opqi 7485 7967 

mmav$multiple caches 7448 7340 8116 &224 

mmv$multiple page maps 7455 , 7340 8116 8224 

mmv$pft_p T477 7638 7910/5 7912 7916 7319/P 7322 7875 7980 
8003 84595 8461/P , 

mmv$pfti_array_p 7461 7233 7233 7246 7246 7247 7247 7248/M 7248 
7249 7249/8 7251 7251 7890 7890 7825 7325 
7925/M 7325 7325 7925/8 79325 7825 7925 7925 

mmv$pt_p 7432 7632 7633 7910 8116 8116/M 8116 &209 8214/M 
8215 8458 8519 ~ 8526/M 852s 


*** REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S:subscript, I=1/0 ref, R=read, W=write, P:tparameter 


REFERENCES OF 


MMPSMODIFY_ PAGES 


-IDENTIFIER------- wane ee eens -D 


0 
modify pages_loop 
monitor. lock 
mtc$job_fixed segment 
mtp$clear_inter lock 
mtp$error_ stop 


 mtp$set_inter lock 


mtp$set status abnormal 


“mttSmonitor_inter lock 


ay 


mtv$csto 


.Nat$received message descriptor 


nat$received message_list 
new sdt_length 
new_sdt_offset 


“new _sdt_op 


new_sdtx_offset 
new sdtx_p 


Mew segment length 


next _offset_to return 
nic$cc_connect_confirm 
nic$cc_ connect_request 
nic$cc_expedited data 
nic$cc_max pdu_kind 
nic$channeil_connection_pdu 


, Nic$channe lnet_pdu 


nit$cc_pdu_kind 
nit$cc_ seq# _or_connect_time 
nit$cc_ sequence_number 


“nitS$device_identifier 


nit$pdu_type 
normal 


' mull_sva 


null sva 
nujdl_osva 


' of fset 


offset 


offset 
offset 
offset 
offset 
offset 


exe 


REFERENCES OF 


MMPSMODIFY_PAGES 


EF INED 
N LINE 
8511 
1993 
3238 
7064 
6906 
6962 
7420 


2123 
7414 


4539 
4531 
2533 
2531 
7780 
2532 
7781 
8093 
2925 
4571 
4570 
4576 
4578 
4894 
4594 
4581 
4558 
4584 
4591 
4sg94 
2362 


7338 
8072 
8157 


585 
1706 


6747 
6832 
6869 
7820 
8072 


REFERENCE ABBREVIATIONS 


IDENTIFIER<--- ree re ete tree DEFINED 

ON LINE 

offset 8170 

offset 8472 
offset list 2898 

offset list 2928 

offset _list_index 7858 
offset list_index 79356 

offset_list_over flow 29326 
offsets returned 28397 

offsets returned 2927 

old _eoi state 8094 

old_sdt_p 7782 

old _ sdtx_p 7783 

old _ segment length 8035 

osc$aging_interval_maximum 4266 

“esc$call_instruction a774 
osc$data_read 4773 

osc$free_ running_clock_maximum 1720 

_ose$invalid_ring 531 
osc$max_channel_number 6464 

osc$max_fault_ contents 4927 

osc$max_idie count 4330 

‘ osc$max_integer 6120 
osc$max_name_size 808 

osc$max_number_of_ processors 4315 

_esc$max_page_frames 2253 
osc$max_page_size 1500 

osc$max_page_tabie entries 2254 

osc$max_ring 530 
osc$max_segment_length 554 

osc$max_ status_condition_code 1087 

osc$max_status condition number 7430 
osc$max_string size 1103 

osc$max_tasks 2080 

osc$maximum_offset 553 

‘osc$maximum_processor_id 4799 
osc$maximum_processor_number 4307 

osc$maximum_processors 4311 

osc$max imum_segment 552 
osc$min_integer 6119 

osc$min_page_ size 1499 

osc$min_ring 529 

‘osc$pr_base_constant 6924 
osc$purge_all_cache 7356 

osc$purge_all_page_seg_map 7365 

osc$subsystem_lock_activity 17 
osc$system_lock_activity 18 

osc$task_ time_slice_maximum 3710 

2412 


osc$wait 


exe 


REFERENCE ABBREVIATIONS 


mmm$mtr_ user _request_processor 


mmm$mtr_user_request_processor 


em em mee se ewe ws ee & 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


1.0 89102 


REFERENCES 

8511 8539 
6878/P 7054/P 
6841 6876 
7054 7078 
8146 8287 
6878 6983 
7427 7668 
8291 8294 
8515 8521 
1993 6962 
7410 

4532 4541 
4383 

7813 

7794 7813 
7794/M 7797/P 
7802 7803 
7803/M 7804/P 
8124/M 8126 
7976 8007/M 
4562 

4560 

4562 

4581 

4546 

4548 

4559 

4547 

4563 

4542 

4545 

7425/M 7625 
7692/M 7725/M 
7982/M 8045 
8300/M 8324/M 
8497/M 8502/M 
7343 7344 
8116 8116 
8224 8224 
8112 

7667 7672 
7702/M 7702 
7754 7882/M 
7992/M 7992 
8206/M 8282/P 
6732/M 7906/M 
6837/M 6844/M 
6875/M 6875/M 
7871/M 7871/M 
8116/M 8116 

M=modify, 


1.0 839102 


REFERENCES 
8116 8116 
8138/M 8199 
8210/M 8210 
8507 8508 
71837 
8012/M 
7903/M 7909 
7916/S 7921/M 
7895/M 8005S 
73887/M 8006/M 
7878/M 7892 
8008/M 8018/M 
8123/M 8130 
7795/P 7797/P 
7795/P 7804/P 
8122/M 8131 
4269 
4782 
4782 
1717 
571 
6467 
4921 
4338 
6125 6126 
812 815 
3310 7152 
2222 2243 
7468 7469 
1496 
2257 
571 572 
577 760 
1083 1099 
7421 
1106 1109 
2077 
554 574 
4795 
4302 
4307 4315 
573 
6123 6124 
14396 
572 
7109 7116 
7343 8116 
7344 8116 
8310/P 8320/P 
8307/P 8317/P 
3713 
8325 8348 
Mzmodify, 


6543 
7871/P 
7005/S 


7871 
7692 
8300 
8533 
7064 


7810/P 
7805S 


8131 


7627 
7731/™M 
8055/M 
8337/M 
8514 


7E74/M 
7730 
7912 
8004 
8285/P 


6847 
6876 
7871 
8116 


Azattribute, 


8116 
8203 
8220 


7309 
7921 
8011/M 


7893/M 


1019 


3480 
7470 


3065 


1114 


S74 


7137 
8224 
6224 
&8363/P 
8361/P 


Asattribute, 


7871 


7731 
8324 


8139 


7633/M 
7745 

8062/M 
8357/M 
8515/M 


7674 
7736/M 
7916 
8004 
8339/M 


8116/M 


S:subscript, 


8203 


7911/M 
7922/8 
8011 


7309 


3481 


3096 


575 


7177 


8370/P 
8368/P 


S=subscript, 


8116/5 


7982 
8337 


T634 

7757/M 
8065/M 
8414/M 
8521/M 


7674 
7736 
7919/P 
8007 
8509/M 


8116 


=1/0 


8204/M 


7911 


7928 
8012/58 


79309 


4002 


8116 


8411 


8393/P 
8390/P 


T2=I/o 


1989-08-21 13:33:34 
8132/5 8182/5 8499/S 
8o55 8062 8065 
8357 8420 8502 
7662/M 7668/M 7685 
7788/M 7867/M 7963 
8271 8291/M 8294/M 
8420/M 8453 8455 
8533/M 
7675 7686/P 7691/P 
71736 7737 7754/M 
7322 7376 7990/M 
8012 8116/M 8139/M 
8542/M 8542 
8116 8116 8116/M 

ref, Reread, Wewrite, 

1989-08-21 13:33:34 
8204 8205 8206 
7912/58 7915/M 7915 
8018 
7328/M 
4004 4144 4150 
8205 
8411 8415 8415 
8406/P 
8403/P 

ref, Rzread, Wewrite, 


PAGE 562 


Pz=parameter 


PAGE 563 


Psparameter 


REFERENCES OF mmm$mtr_user_request_processor 


MMPSMODIFY_ PAGES 
IDENTIFIER -=-- ee ee ee ee eee eee 


ost$aging_interval 
est$asid 


ost$binary unique name 
ost$byte_count 
ost$clear_file_space 
ost$cp_time 
ost$cp_time_vaiue 
ost$cpu_element_id 
ost$cpu_idile_ statistics 
ost$cpu_memory_port_mask 
ost$cpu_running_or_stepped 
ost$cpu_state 
ost$cpu_state_ reason 
ost$cpu_state_table 


ost$cs_ lock 
est$cst_trace_contro! 
ost$date_time 

ost$debug code 

est$debug list 

ost$debug_ list_entry 
ost$debug_ mask 

ost$exchange package 
ost$execute privilege 
est$execut ion _controi_btock 
ost$external_interrupt request 
ost$fami ly_name 

ost$filags 
ost$frame_descriptor 
ost$free_ running ciock 


ost$global_task_id 


ost$hailfword 
ost$idle_type 

ost$key_ lock 
ostSkey_lock_value 
ost$keypoint_class 
ostS$keypoint mask 
ost$logical processor id 
ostS$minimum_save_area 
ost$monitor_ condition 
ost$monitor conditions 
ost$monitor fault 
ost$monitor_fault_contents 
ost$name 


ost$non_negative_integers 
est$p_ register 
ost$page_id 


eee 


REFERENCES OF mmm$mtr_user_re 
| MMPSMODIFY_ PAGES 
POENT ILE LE RS ss <6 66 os 2a a Sie Sm 3 


ost$page_size 

ost$page_table 

ost$page table_entry 
ost$page_table_index 
ostSpaging statistics 
ost$parce! 

ost$physical channel_number 
ost$pre_ processed for _reconfig 
ost$processor_element_id 
ost$processor_element_number 
ost$processor id 
ost$processor_id_set 
ost$processor_modei_number 
oest$processor_serial_ number 
ost$pva 

ost$read_privi lege 
ost$real_memory_ address 
ost$register_ number 

ost$ring 

ost$ringi_terminat ion_reason 
ost$segment 
ost$segment_access_control 
ost$segment_descriptor 
ost$segment_ length 


ost$segment_offset 


ost$signature_ lock 
ost$stack_frame_save_area 
ost$state_tables 
ost$status 

ost$status condition 
ost$status condition_code 
ost$string 

ost$string size 
ost$system_flag 
ost$system_virtual_address 


ost$task_index 
ost$task_time_slice 
ost$top_of stack pointer 
ost$trap_enable 

ost$user_ condition 
ostSuser_conditions 
ost$user_identification 
ostS$user_ name 
ost$valid_relative_pointer 
ost$valid_ring 
ost$virtual_machine_identifier 
ost$wait 

ostS$word 


ex * 


DEFINED--- e+e ete eee eee REFERENCES 
ON LINE 

4269 4198 
1708 450 
4073S 

1408 1400 
1699 29825 
1013 460 
3817 3785 
3815 3466 
4299 3341 
4333 3344 
4301 3317 
4351 4348 
4346 3326 
4357 3347 
3313 3310 
8026 

2137 4381 
5162 3345 
6130 5593 
4773 4761 
4769 4673 
4760 4769 
4779 4672 
4622 4368 
3034 3016 
4367 3327 
5150 3333 
4279 4274 
4679 4629 
4737 4752 
1717 2011 
3483 

2071 2013 
4811 

8249 

1723 4319S 
4342 4337 
560 3022 
S66 563 
4711 4642 
4713 4645 
4302 3318 
4747 4634 
4598 4605 
4605 4635 
49304 4853 
4921 4917 
815 778 
4277 

6125 5576 
4694 4623 
2289 2269 


REFERENCE ABBREVIATIONS 


quest_processor NOS/VE CYBIL/II 


DEFINED--<-------++2ee%-= REFERENCES 
ON LINE 

14396 1477 
2273 7492 
2264 2273 
2257 2273 
3853 3831 
1725 3339 
6467 6409 
5188 3348 
4318 4239 
4327 4320 
47395 4371 
4789 4370 
1426 1410 
1504 1409 
582 4667 
3037 3017 
1697 3338 
46390 4664 
571 583 
4807 4404 
S73 584 
3027 3156 
3014 2988 
S77 502 
5380 

S74 585 
6710 

2138 424 
4721 4755 
3310 7414 
1071 1056 
1095 2363 
1099 1074 
1112 1075 
1106 1113 
5082 5078 
1704 4102 
7645 

8176 

2077 2072 
3713 3699 
4682 4674 
4716 4631 
4608 4615 
4615 4633 
4272 4187 
&277 4273 
580 2018 
572 978 
&704 “8625 
2412 2380 
1727 5476 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


1.0 89102 


6809 
8074 


3029 
4393 


2226 
3484 
2064 
5014 


3143 
4696 
4713 
4722 
4639 

839 
4279 


4748 


Memodify, Azattr 


Memodify, Asattribute, 


1.0 89102 


1705 
7200 
1622 
2941 


4400 
3819 


7212 
8243 


72606 


3435 
3650 
3322 
5308 


4698 


4908 


4727 


885 


4427 


4975 


ibute, 


7622 


2227 
7205 
1995 
7646 


4193 


7408 
8443 


7514 


3436 
3662 
3429 
5621 


4983 


916 
4491 


4981 


S=subscript, 


4976 


7303 
7721 
84392 
3352 


4754 


4398 


4674 


7372 


Sesubscript, 


1989-08-21 


13:33:34 PAGE 564 


4068 
8487 


7336 


8256 


3482 
7040 
4379 
7534 


4238 


R=read, Wewrite, P:parameter 


3021 3158 3424 
7852 8088 8161 
7711 8473 

4194 4413 

7521 T7777 7822 
7523 7528 7786 
3437 3438 3472 
4132 4201 43995 
3458 4188 4378 
7498 7505 78527 
4997 

1289 1621 1636 
4946 53393 5369 

I:1/O ref, 
1989-08-21 

49398 78a7 

4743 

3134 3135 4684 
3246 4662 4763 
3163 3165 3168 
7314 7385 8165 
4764 4766 593798 
7845 7856 8472 
7313 7384 7333 
7863 7959 8041 
7559 7572 

4944 4884 

IsI/O ref, 


13:33:34 PAGE S65 


6393 


3287 
8169 
6684 


7609 
80398 


Reread, Wsewrite, Psparameter 


REFERENCES OF 
MMPSMODIFY_ PAGES 
IDENTIFIER---c ee ete ere ere eee 


ost$write privilege 
ost$x_register 
osv$cpus_logically_on 
osv$page_size 


p 

p_dfd 

p_dfd 

p_fau 

p_fau_entry 
p_fau_entry 
p_levell 

p_levell 

p_level2 

p_level2 

p_offset 
/p_offset 

p_offset 
p_register 

page _ count freed 
page _ disposition 
page status 
page_wait_ info 
pages_freed 
pages_freed 
pages_in_memory 
pfc$execute 
pfc$read 
pft$share_ options 
pftSusage options 
pftS$usage_ selections 
pft_entry 


pft_ index 


pft_index 


i_array 
pfti_array 
pfti_array size 


axes 


REFERENCES OF 


MMPSMODIFY_ PAGES 


IDENTIFIER----- eee ee ee te wees 


pfti_first 
pfti_ index 


pfti_size 

pfti_size 

pftis 
pmc$kill_task_flag 
pmc$mainframe_id_size 
pmc$max_signal_contents 
pmc$max_task_id 


pmc$processor model _number_size 


pmc$processor_serial_num_size 
pmt$binary_mainframe_id 
pmt$condition_identifier 
pmt$cpu_mode1_number 
pmt$cpu_serial_ number 
pmtS$initialization_value 
pmt$mainframe_id 
pmt$program_name 

pmt$sense_ switches 

pmt$signal 
pmt$signal_ 
pmt$signal_ 
pmt$task_id 
pqie 
psc_all_except avail 


contents 
id 


“ptr_level_2 
ptr_level_ 2 
ptr_level_ 2 
opva 
pva 
pva 
pva 
‘'pva 
pva 
pva 


pve 


pva 
pva 


qrb_p 
queue_id 


rb 


rb 


xe 


mmm$mtr_user_request_processor 


mmm$mtr user request processor 


NOS/VE CYBIL/II 
DEFINED---------------- REFERENCES 
ON LINE 

7468 7233 
7469 7246 
; 7925 
7230 7233/M 
7820 7890/M 
7471 7249 
5082 5098 
6148 6145 
5065 5059 
4820 4817 
6156 6148 
6206 6149 
4284 4191 
4894 4888 
1486 1475 
1489 1476 
2181 2010 
6145 5568 
816 617 
4293 4202 
5021 5015 
5059 5023 
5026 $022 
4817 4395 
4147 7967 
2955 7885/P 
4097 7810/5 
7622 7626/M 
8072 8116 
8174 8207 
8448 8456 
6762 6766/M 
6775 6797/M 
7820 7919/M 
2353 8452/P 
2379 82639/P 
2922 7962/P 
2940 8044/P 
4524 8460/M 
4685 8112 
4699 8106 
6725 6731/M 
6745 6732/M 
7820 7906/M 
8252 8384/M 
2223 8530/P 
7821 7867/™M 
7909 
7935 79862/P 
8006/M 


REFERENCE ABBREVIATIONS 


Mzemodify, 


NOS/VE CYBIL/II 1.0 89162 
“DEFINED-----eee-e-- ere ee REFERENCES 
ON LINE 
3040 3018 3031 
4691 4664 4733 
7182 7109 7116 
75936 7632 7672 
7754 7992 
8131 8198 
8542 
6743 6731/M 6733 
6775 6793 6794 
7820 7919 7919 
7860 7919/P 7320 
6777 6788/M 6800/M 
7820 7919/M 7919/M 
6784 6796/M 6797/P 
7820 7919/M 7913/P 
6785 6797/P 6798 
7820 79319/P 7319 
676 1 6765 6766 
6775 6737 6797 
7820 7319 7919 
4623 8106 8108 
8096 8140/P 
2386 8340 8343/5 
8251 8280/M &8283/P 
4401 8460/M 
8072 8116/M 8116/M 
8172 &8200/M 8213/M 
2222 8136 
19022 1024 1027 
1021 1024 1027 
1027 1028 
1024 1025 
1025 6093 
7957 7975/M 7976 
8015 
7862 7886/P 79093 
7325/P 
7958 7967/M 73974 
8003/5 8015/M 
7610 7638/M 
7658 7684/P 7690 
7722 774a/P 7745 
8493 8513/P 8519/8 
7243 7245/M 7246 
7621 7632/M 7638/S 
T&20 7925/M 7925 
8449 8458/M 8459/S 
8494 8529/M 8530/P 
8072 8116/M 8116/P 
8173 8215/M 8226/P 
7861 7890/P 78932 
REFERENCE ABBREVIATIONS M=modify, 


1.0 89102 


7890 
T7247 
7925/S 


7325 


6153 
6203 
5567 


1482 
1481 
3147 
6373 

621 


4812 


8519/5S 
7632/S 
8116/S 
8209/S 
8458/S 
6768/M 
6797/M 
7919/M 
8454/P 
8272/P 


8108 

6732/M 
7306/M 
7306/M 


8386/S 


7871/P 
7909 

7962/P 
8007/M 


7136 
7674 
7992 
8204 


7906/M 
6795 
7919 
7920 


6800 
79193 
6766 
6797 
7319 
8306 


8344/S 
8285/P 


8116 
8213 


73976 
739309 


73974 


7696/M 
7746/™M 
8526/S 
7246 


78325/M 
8461/S 


8116/P 
8227/P 
7893 


Azsattribute, 


7248/M 
7925 


637 


8526/S 
7633/S 
8116/S 
8214/S 


8386/S 


&306 
6733 


7306 
8387 
7872/P 
7913 


7363 
8008/M 


Arzrattribute, 


7176 
7697 
8116 
8210 


7906 
6796 
7919 


8316 


8290 


8116/S 
8215/8 


8003/M 
7910/S 


797S/S 


8528/M 
7249 /M 


7825 


S=subscript, 


71248 
7825 


85239/S 


8116/S 
8215/S 


8316 


8414/™M 


7878/M 
7917 
7968 
8012/M 


Sesubscript, 


1889-08-21 13:33:34 

8411 8411 8415 8415 
7702 7736 737 7749 
8116 8116 8116 8131 
8215 8458 85283 8537 
6796 67993 6799 
7919 7919 7319 

8326 

8293 

8116 8116 

8223 8225 

8004 8004 8007 8012 
7912/S 7916/S 7919/S 7922/8 
79380/M 7980/58 8002 8002 
8529/5 8S530/P 8531 

7252/M 7254 

79325/M 7325 

T=1/O ref, Rtread, Wewrite, 
1989-08-21 13:33:34 

7249/8 7251 7925 7925/M 

904 6571 
8326 
78932 7833/M 7837 7898 
7928/™M 
73976 79882/P 7387/M 73893 
8018/M 

IsI/O ref, Rtread, Wewrite, 
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P=parameter 


PAGE 567 


P=par ameter 


REFERENCES OF 


mmm$mtr_ user request _processor NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 568 
MMPS$MODIFY_PAGES 
TOENT LEIER? se 28S ese ees ee ee DEF INED=* 29s 45s e +4 92 2 REFERENCES 
ON LINE 

rb 8025 8044/P 8044/P 8045 8043 8051 8053/P 8053/P 8055/P 
S058 &8O60/P 8060/P 8062/P 8065/P 

rb 8242 8269/P 8269/P 8271 8272/P 8273 8291/P &8234/P 8300/P 
8301 8313 8324/P 8325 8337/P 8340 8343/58 8344/S 
8345/P 8346/P 8346/P 8346/P 8348 8357/P 8420/P 

rb 8442 8452/P 8452/P 8453 8454/P 8454/P 8455 

reqcode 2937 8049 

request 2382 8273 

request block 7776 77838/M 7794 7802 7803 7805 7813 7814 

request _ block 8073 8101/P 8103 8107/M 8109/M 8111/M 8118/M 8124 

residence 1945 6835 6876 TOO1/M 7004/M 7285 7871 7872 8116/M 
8116/M 8116 8132/M 8132/M 8133 8182/M 8182/M 8183 
8499/M 8499/M 8500 

residence 6833 6835/M 6839 6840 

residence 6869 6876/M 6876 6876 

residence 7820 7871/™M 7871 7871 

return_unallocated offsets 2899 7913 7917 

ring 583 8106 8108 8306 8316 &326 

rma 2270 7632 8116 8215 8458 8529 

rmc$external_vsn_size 1589 1895 

rmc$recorded vsn_size 1592 1602 

rmcS$unspecified_file_class 1377 1370 

rmt$external_ovsn 1595 1609 

rmt$recorded vsn 1602 492 1543 1555 1608 1843 

rmtS$volume_ descriptor 1607 1614 

sdt_entries 7785 7796/M 7797/P 7804/P 

sdt_offset 4337 7266 7795 7813/M 8385 

sdt_p 7261 7266/M 

sdt_p 7775 7795/M 

sdt_p 8241 8385/M 

sdt_p 8255 8385/P 

sdt_rma 7784 7810/P 7811 7812 

sdtx_ offset 4398 7267 7795 7805/M 8385 

sdtx_p 7262 7267/M 

sdtx_p 7778 7735/M 

sdtx_p 8241 8385/M 

sdtx_p 8256 8385/P 8386 

sdtx table 3086 8386 

search_pft 8001 8001 8016 

search _pft_for_ offset 7370 7970 7377 7984 

seg 584 78938/M 

seg 6831 6838/M 6841/M 6847 

seg 6869 6876/M 6876/M 6876 

seg 7820 7871/M 7871/M 7871 

segment length 3287 8107/M 8103/M 8111/M 8118/M 8124 

segment. lock 2002 8302 8302 8303 8304 8305/M 8305 8313 8314 
8315/M 8331/P 8338 8365/M 8372/M 8372 8376 8377 
8378 8379 8380 &380 8381/P 8388/M 8388 8396 
8397 8400 8401/M 8417/P 

segment_ lock 3061 8297 8298 8299 8308/M 8311/M 8318/M 8321/M 8327/M 
8329/M 8336 8360 8367 &8374/M 8389 8391/M &8394/M 

* eX REFERENCE ABBREVIATIONS Memodify, Atattribute, Stsubscript, I21/0 ref, R=read, Wewrite, P=parameter 


NOS/VE CYBIL/II 


Wee 


REFERENCES OF mmm$mtr_user_request_processor 1.0 89102 1989-08-21 13:33:34 PAGE S69 
MMPS$MODIFY_PAGES 
IDENTIFIER-<--- eee eee eee te ee eee DEFINED-~--*+*-e-+2 2-2-5 REFERENCES 
ON LINE 
8402 8404/M 8407/M 
segment_table_address_ 1 4666 7811/M 
segment_table_ address 2 4668 7812/M 
segment table length 4662 7796 7814/M 
segnum 6993 6999/M 7000 7005/8 
segnum 8072 8116/M 8116 8116/58 8132/M 8132 8132/8 
segqnum 8157 8182/M 8182 8182/S 
segnum 8470 8499/M 8499 8499/S 
seqno 2073 7509/M 8381/M 
sequence, number 7560 7509 8381 
set modified bit 8474 8525 
sfid 2230 7284 7872 8116 8133 8183 8500 
sfid 2836 7871/P 7872/P 
sfid 6823 6835 6836 6837 6848 
Sfid 6863S 6876/P 
sfid 6869 6876 6876 6876 6876 
sfid 6989 7008/M 
sfid 7278 7284 7285 
sfid 7820 7871/P 
sfid 7820 7871 7871 7871 7871 
sfid 7820 7872 7872 
sfid 8072 8116/P 8116/P 
sfid 8072 8116/M 8132/M 
sfid 8072 8116 8116 8133 8133 
sfid 8097 8132/P 8133/P 
sfid 8157 8182/M 
sfid 8157 8183 8183 
sfid 8175 8182/P 8183/P 
sfid 8470 8499/M 
sfid 84790 8500 8500 
sfid 8491 8499/P 8500/P 
sft$counter 3863 3832 3833 4203 4205 &206 4208 
sft$file space _limit_kind 1759 488 3063 6711 
source 7082 7092 
source 7775 7797 7804 
specified 5303 8342/M 
Stack_for_ring 2014 8105 8106 8108 8112/8 
starting with_first_page 2923 7989 
state 1969 7320 
status 2352 8452/P 8453 8454/P 8455 
status 2378 &8269/P 8271 8291/P 8294/P &8300/P 8324/P 8337/P 8346/P 
8357/P 8414/M 8420/P 
status 2530 7788/M 
status 2895 7867/M 
status 2921 7862/P 7963 7982/P 
status 2538 8O44/P 8045 8053/P 8055/P 8O060/P 8062/P 8065/P 
status 7422 7425/M 7426/M 
status 7611 7625 7627 7628/M 7633/M 7634 7635/M 
status 7644 7668/M 7668/M 7692/M 7692/M 
status 7647 7662/M 7668/P 7684/P 7685 7691/P 7692/P 
Status 7709 7731/M 7731/M 
status 7712 7725/M 7T731/P 7744/P 71745 7757/M 
"2 REFERENCE ABBREVIATIONS Memodify, Astattribute, S=ssubscript, I21/0 ref, Rtread, Wewrite, P=parameter 


ar 


REFERENCES OF 
MMPSMODIFY_PAGES 


-IDENTIFIER-------------------= D 
0 

status 

status 

status 


status 
‘Status 

ste_p 

str 

stri 

str2 

str2 

stt$set_name 

stxe_p 


subfunct ion_code 
subsequent request _for_same_pva 
Sva 


sva 
Sva 

sva 

S$va 

sva 

sva 

sva 

sva 

sva 

sva 

sva 

sva 

syc$rc_lock_pages 
syc$rc_untock_pages 
syc$ucr_condition 
syc$user_ defined condition 
Syt$180_idile_code 
syt$monitor_ flag 
syt$monitor_flags 
Syt$monitor_request_code 


syt$monitor status 


task_queue 
task_queue 
task queue 
_. task_queue 
taskid 
taskid 
taskid 
taskid 


** x 


REFERENCES OF 
MMPSMODIFY_PAGES 


IDENTIFIER----r cree ee reer eee eee D 
0 
tmce$broken_task_fault_id 
tmce$btc_invalid_ao 
tmceSbtc_ invalid op 
tmc$btc_mcr_traps_disabled 
tmc$btc_mf_ traps disabled 
tmce$btc_mntr_ fault buffer full 
tmc$btc_ system_error 
tme$btc_ucr_ traps _ disabled 
tmc$dummy_ fault 
tmc$flag availabie_31 
tmc$maximum_monitor_ faults 
tmc$maximum_signals 
tmc$maximum_ system_task_id 
tmce$mer_fauilt 
tmc$signal_available_63 
tme$stid_null_task 
tmc$ts_ io _wait_not_queued 
tmce$ts_io_wait_queued 
tmc$ts_page_ wait 
tmce$ts_ ready 
tmc$ts_segment_ lock _wait 
tmc$ts_timed wait _mot_queued 
tmce$ts_ timeout reqexp_longv long 
tmc$ts_ timeout _reqexp shortshrt 
 tmp$cilear_ lock 
tmp$dequeue_ task 
tmp$get_taskid_from_task_queue 
tmp$get_xcb_ p 
tmpSmtr_begin_lock_activity 
tmpSmtr_end_lock_activity 
tmp$queue_task 
tmp$set_ lock 
tmt$broken_task_ condition 
tmtS$broken_task_monitor fault 
itmt$dispatch_ control 
tmt$dual_state_priority_entry 
tmtSidle status 
tmt$mer_ faults 
“tmt$monitor_fault_buffer 
tmtS$monitor fault buffers 
tmt$monitor fault identifiers 
‘tmtSprimary task_list 
tmtS$primary_task_list_entry 
tmt$pti_f lags 
tmt$pti_ lock 
itmt$signatl 
tmt$signal_buffer 
tmt$signal_buffers 
itmt$system_flags 
tmtS$system.task_ id 
tmt$task_queue_ link 
tmt$task_ status 


Ree 


mmm$Smtr_user_request_processor 


EFINED 
N LINE 
7934 
8024 
8241 


8470 
8475 
8247 
7087 
7775 
7088 
7775 
1621 
8248 


3288 
2924 
4102 


7609 

7645 
T7110 
7863 
7959 
8041 

8072 
8098 
8176 
8260 
8450 
8492 
2474 
2475 
4932 
4933 
5170 
4839 
4824 
2420 


2361 


2082 
4098 
7504 
8241 
3322 
7505 
8241 
8249 


REFERENCE ABBREVIATIONS 


mmum$mtr_ user _request_processor 


EFINED 
N LINE 
4860 
4958 
4958 
43959 
4958 
4957 
4960 
4959 
4861 
S095 
4865 
S075 
5108 


5078 
5111 
2039 
5238 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


4910 
4379 
4979 
4380 
4978 
4978 
4974 
4380 
43916 
503s9 
4856 
S072 
5111 
4312 
5068 
5111 
$233 
8461/P 
5234 
5228 
8331/P 
5232 
5231 


Memodify, 


1.0 88102 


REFERENCES 
7982/M  7982/M 
8055/M 8055/M 
8291/M 8291/M 
8337/M 8337/M 
8502/M 8502/M 
8487/M 8502/P 
8272/P 
7082/M 7094 
7797/M 7797 
7093/M 7094/M 
7797/M 7737/M 
500 1551 
8272/P 8282/P 
8321/M 8327/M 
8389 8391/M 
8103 
7968 
7912 7916 
8007 8012 
7625 
7667 7672 
7730 7735 
7875/M 7882/M 
7962/P 7976 
8044/P 8053/P 
8116/M 8116/M 
8138/M 8139/M 
8196/M 8206/M 
8272/P 8282/P 
8454/P 8456 
8508/M 8509/M 
8050 
8057 
4943 
4945 
3334 
4824 
4369 7567 
2351 2377 
6082 
2352 2378 
7374 7394 
8475 
8302 8331/P 
8461/P 
7508 7509/S 
8381 8381/S 
8331/P 8461/P 
7508/M 7509/M 
8381/M 8381/M 
8381/P 8382/P 
M=modify, 


1.0 89102 


7147 
8381 
8310 
8363 


8461 
7188 


5264 


4852 
4985 


7170 


5007 


7568 


40398 
7535 


8062/M 
8294/M 
8357/M 
8515/M 
8513/P 


7804/M 
7095 
1797 
1556 
8297 
8329 /M 
8394/M 


7919/P 


7673 
7737 
7885 /P 
7930/M 
8060/P 
8116 
&8140/P 
8207 
8285/P 


8513/P 


2529 
2530 
7400 


8380 


8417/P 


Az:attribute, 


8411 


8317 
8368 


8411 


4853 


7194 


5008 


T4397 
7563 


Artattribute, 


8062/M 
8294/M 
8357/M 
8515/M 
8514 
7804 
7804/M 
8298 


8336 
8402 


7922 


7686/P 


7992/M 


83339/M 


8542/M 


2894 


2895 
7422 


&380 


S=subscript, 


8415 


8320 
8370 


8415 


7504 
7564 


S:subscript, 


1989-08-21 13:33:34 

8065/M 8065/M 
8300/M 8300/M 8324/M 8324/M 
8420/M 8420/M 
8521/M 8521/M 8533/M 8533/M 
8515/P 8521/P 8533/P 
7804/M 7804 
8299 8308/M 8311/M 8318/M 
8360 8367 8374/M 8386/M 
8404/M 8407/M 
7976 7976 8004 8004 
7691/P 
7932 8004 8004 
8344/P 8352/P 8354/P 
8542 
2920 2337 2964 3285 
2921 2938 2965 6083 
7611 7647 7659 7712 
8381/P 8417/P 

I:I1/O ref, Reread, Wewrite, 


8330 


7536 


TsI/0O ref, 


1989-08-21 


8333 


‘75656 


13:33:34 


8403 


Reread, Wewrite, 


8406 


PAGE 


570 


P=parameter 


PAGE 571 


P=parameter 


e0od0odaod0oaoodcaooo0o0o00o0g0 0 


eoe0ocoeodoeoeooeooeooeoaoooooeooooec08 


On I oWAWN 


6935 
6836 
6337 
6938 
6339 


REFERENCES OF mmm$mtr_user_request_ processor NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 

MMPSMODIFY_ PAGES 

LOENTIFT LER SS oa ee Sr eee tee = ~DEFINED--- +e 22ers ee eee REFERENCES 

ON LINE 

tmt$wait inhibited 7589 7584 

tmt$xcb_offset size 7580 7561 

tmv$pt 1_ lock 7194 7109/P 7116/P 8411/P 8411/P 8415/P 8415/P 

tmv$pti_p 7542 7509 8381 

tes registers 4674 8112 

unlock length 7720 7737/M 7749/M 7749 7750 

unlock page frames 7742 7742 7751 7755 

unlock pages 7709 7686 7691 7759 8O60 

unlock status 7659 7686/P 

unlock sva 7721 7735/™M 7736/M 7736 7736 7744/P 7754/M 7754 

v 2265 7633 8116/M 8214/M 8519 

wait 2380 8325 8346/P 8348 

wmp_status 8266 8345/P 8346/P 8347 8347 8348 

x registers 4664 8384 

xcb op 3327 6816 7789 8101 8106 8108 8109 8112 8306 
&8307/P 8310/P 8316 8317/P 8320/P 8326 8361/P 8363/P 
8368/P 8370/P 8460/M 

xcb_p 7260 7266 7266 7267 7267 

xcb op 7775 7795 7795 7795 7735 

xcb op 7786 7789/M 7794 7795/P 77396 7803 7805/M 7811/M 7812/M 
7813/M 7814/M 

xcb op 8241 8385 8385 8385 8385 

xcb_p 8250 8382/P 8383 8384 8385/P 8390/P 8393/P 8403/P 8406/P 

xfde op 6808 6814 

xfde op 8072 8101 

_xijl_ordinal 6994 7002/M 7005/M 7009 

xijl_ordinal 8072 8116/M 8116/M 8116 8132/M 8132/M 8132 

xijl_ordinal 8157 8182/M 8182/M 8182 

xijl_ordinal 8470 8499/M 8499/M 8499 

xp 4368 7796 7811/M 7812/M 7814/M 8106 8108 8109 8112 
8306 8316 8326 8384 

xpFt i 72395 7254/M 

xpFfti 7820 7325/M 

xsfid 6935 6387/M 6998/M 7001/M 7004/M 7008 

xsfid 8072 &8116/M 8116/M 8116/M 8116/M 8116 8132/M 8132/M 8132/M 
8132/M 8132 

xsfid 8157 8182/M 8182/M 8182/M 8182/M 8182 

xsfid 8470 84939/M 84939/M 84399/M 84s3/M 8499 

xX REFERENCE ABBREVIATIONS Memodify, Atattribute, S:subscript, I:I/O ref, Reread, Wewrite, 
SOURCE LIST OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 


MODULE mmm$page_ fault processor ; 


{ 
{ PURPOSE: Memory Manager 
{ This moduie contains the monitor routines that are used to 
{ manage physical memory and the page table. 
{ 
{ 
{ This decks defines compile-time constants to control conditional compilation 
{ of debug code in memory manager modules in monitor mode. All constants should 
{ be set to FALSE for the transmitted version of this deck. 
CONST 
mmc$debug = TRUE; 
? VAR 
mmc$debug check _queues: boolean := TRUE, {Check POL linkage} 
mmc$debug relink_Swapping job: boolean := TRUE , {Stop if relink page of swapping job} 
mmc$debug pt: boolean := TRUE, {check PT - AST linkage} 
mmc$debug_ free _asid: boolean := TRUE, {Verify no attempt is made to free an AST 


{ entry with pages not in AVAIL queue. 


mmc$debug_ aste_p_from_pfti: boolean := TRUE, {Verify aste_p in pfti is correct} 
mmc$debug rma_list: boolean := TRUE, {Verify RMA list on lock/unlock rma list} 
mmc$debug_ esc alloc: boolean := TRUE, {check for escaped allocation} 
mmc$debug ast pft: boolean := TRUE?; {check pft.aste_ p on reference to AST} 


{ PURPOSE: This deck (mmc$manage_memory_ utility) primarily contains default values for the mmv$ variables 


{ and the Global Page Queue List all of which are managed by the Manage Memory Utility which 
{ is in the module mmm$manage_memory. 
CONST 
mmc$mmu_age_interval_ceiling = 10, { pages ]} 
mmc$mmu_age_interval_floor = 3, { pages } 
mmc$mmu_aggressive_aging_ one = 10, { pages } 
mmc$mmu_aggressive_ aging _two . 18, { pages } 
mmc$mmu_aging_aigorithm = 4, { flag to select algorithm} 
mmc$mmu_jws_age_interval = 8000000, { microseconds } 
mmc$mmu_min_avail_pages = 400, { pages } 
mmc$mmu_ps_prestream = 4, { page faults} 
mmc$mmu_ps_transfer size = oO, { bytes}{when non-zero, overrides transfer size from DM 
mmc$mmu_ps_threshoid = 65536, { bytes} 
mmc$mmu_ps_reads = a5 { transfer units 
mmc$mmu_ps_random_limit = 3, { random page faults 
mmc$mmu_periodic_call_interval = 1000000, { microseconds } 
mmc$mmu_shared age_ interval = 8000000, { microseconds } 
mmc$mmu_swapping aic bs 1, { limit on number of times an unused page is swapped out } 
mmc$mmu_t ick _t ime = 1600000, { microseconds, Real default is determined in deadstart. 
mmc$mmu_queue_ age task_service = 3, { number of shared_age intervals} 
mmcS$mmu_queue age pf execute = i, { number of shared age _ intervals} 
mmc$mmu_queue age pf non exec = 1, { number of shared_age_intervais} 
mmc$mmu_queue_ age device file = 1, { number of shared_age_ intervais} 
mmc$mmu_queue_ age file server = Ag { number of shared_age_intervais} 


PAGE 572 


P=parameter 


PAGE 573 


SOURCE LIST OF 


o0o000000 


e000oocoo0o0o0 


PHRHAHAHDPAHPHHAAHDAAAADAHAHAAPAAAALOO 


6940 
6941 
6942 
6943 
6944 
6945 
6946 


6948 
6949 
6950 
6951 
6369 
6970 
6971 
6972 
6373 


6875 
6976 
63977 
6978 
63798 
6980 
6981 
6982 
6983 
6384 
6985 
6986 
6387 
6988 
6989 
6990 
6991 
6992 
6893 
6994 
6995 
6996 
6397 
69398 
6999 
7000 
T0071 
7002 
7003 
7004 
7005 
7006 
7007 
7008 


SOURCE LIST OF 


o0000 0 


00000000000 


00000000 


70093 
7010 
7011 
7012 
70 3 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7208 
7209 
7210 
7211 
7212 
7213 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7241 
7242 
7243 
7244 
7245 
7246 
T7247 
T248 
7249 
7250 
7253 
71254 
7255 
7256 
7287 
7258 
7253 
7260 


mmm$page_fault processor NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 
mmc$mmu_queue_age_ other Ts { mumber of shared_age_intervals} 
mmc$mmu_queue_age_ site _queues Aes { nmumber of shared_age_intervais} 


mmc$mmu_queue_max imum 
mmc$mmu_ queue _ minimum 


osc$max_page_frames, {default maximum pages for all queues} 
QO; {default minimum pages for ali queues} 


{External procedures used by this module. 


PROCEDURE [INLINE] display monitor 
( display_line: string ( * <= 255)); 
dpp$display_error (display_line); 

PROCEND display_monitor ; 


PROCEDURE display_integer_monitor 
( desc: string ( * <=: 60); 
int: integer); 


VAR 
hex_ digits: [ ] 
1S." . *6 ? i ier 


TYPE 
convert = record 
case (integ, strng) of 
= integ = 
int: integer, 
= strng = 
strn: string (8), 
casend, 
recend; 


VAR 
conv: convert, 
data: string (8), 
data_index: integer, 
line: string (80), 
line_index: integer ; 


lime := desc; 
lime _index := 
conv.int :: int; 
data :*? conv.strn; 
FOR data_index := 1 
Tine (line_index) := nex digits 
line (Tine_index + 1) :: 
line_index :: 


#SIZE (desc) + 2; 


TO 8&8 DBO 
[SINTEGER (data 
hex digits [SINTEGER (data 
Tine index + 2; 


mmm$page_ fault processor NOS/VE CYBIL/II 1.0 891602 


FOREND ; 
display_monitor (line (1, (Tine_index - 
PROCEND display_integer_monitor ; 


1)}); 


PROCEDURE [XREF] dfp$fetch_multi_page_status 
( fde_p: gft$locked file _ desc _entry_p; 
offset: ost$segment_offset ; 
length: ost$segment_ length; 


VAR allocate_status: gft$page_ status) ; 


PROCEDURE [XREF] dfp$fetch_page status 
( fde_p: gft$locked file _desc_entry_p; 
offset: ost$segment_offset ; 


VAR allocate status: gft$page status) ; 


PROCEDURE [XREF] dfp$file_server_allocation 

( Sfid: gft$system_file_identifier; 
segment _ offset: ost$segment_offset; 
segment length: ost$segment_ length; 
io_id: mmt$io_identifier ; 
buffer descriptor: mmt$buffer descriptor ; 
file limit: sft$file_ space_limit_kind; 

VAR spio_ status: syt$monitor_status) ; 


{ Xref deck for dfp$server_io. 


PROCEDURE [XREF] dfp$server_io [ 
fde_p: gftS$locked file desc_entry_p; 
io_type: iot$io_function; 
segment_offset: ost$segment_offset; 
segment _iength: ost$segment_ length; 
io id: mmt$io_identifier; 
buffer descriptor: mmt$buffer descriptor; 
VAR status: syt$monitor_status) ; 


PROCEDURE [XREF] dmp$fetch_multi_page_ status 
( fde_p: gft$locked file desc_entry_p; 
offset: ost$segment_offset ; 
length: ost$segment_ length; 
enforce limits: sft$file_space_limit_kind; 
VAR reject_offset: ost$segment_offset ; 
VAR allocate status: gft$page status) ; 


PROCEDURE [XREF] dmp$fetch page_status 
( fde_p: gftS$locked file _desc_entry_p; 
offset: ost$segment_offset ; 
enforce limits: sft$file space_limit_ kind; 
allow _allocation: boolean; 
VAR allocate status: gft$page_status); 


(data_index) ) 
(data_index) ) 


DIV 16]; 


MOD 16]; 
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PROCEDURE [INLINE] gfp$mtr_get_sfid_from_fde_p 
fde_p: gft$locked_ file _desc_entry _p; 
VAR sfid: gft$system_file_identifier; 
VAR ijl_ordinal: jmt$ijil_ordinal); 


PROCEDURE [INLINE] gfp$mtr_get_fde_p (sfid: gft$system_file_identifier; 


ijle_p: Ajmt$initiated job_list_entry; 
VAR fde_p: gft$file_desc_entry_p); 


PROCEDURE [INLINE] gfp$mtr_get_locked_fde_p (sfid: gft$system_file_identifier; 


ijle_p: Ajmt$initiated_job_list_entry; 
VAR fde_p: gftS$locked file _desc_entry p); 


PROCEDURE [INLINE] gfp$mtr_unlock_fde_p (fde_p: gft$locked_file_desc_entry_p); 


PROCEDURE [XREF] i#reai_memory address (p: Acel11; 
VAR rma: integer); 


PROCEDURE [XREF] iop$enablie_all_disk_units 
(VAR status: syt$monitor_status) ; 


PROCEDURE [XREF] iop$pager_io ( 
fde_p: gft$locked file _desc_entry_p; 
chapter _ offset: ost$segment_offset ; 
buffer descriptor: mmt$buffer_ descriptor ; 
length: ost$byte_count ; 
io function: iot$io function; 
io _identifier: mmt$io_identifier ; 
VAR status: syt$monitor_status) ; 


PROCEDURE [INLINE] jmp$check_scheduler_memory wait; 


PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: jmt$ijl_ordinal; 


VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] jmp$recognize_ thrashing; 


PROCEDURE [XREF] jmp$set_scheduler_event (event: jmt$job_scheduler_events) ; 


PROCEDURE [INLINE] jmp$unlock_aji 
{ ijle_p: AjmtS$initiated_job_list_entry); 


VAR 
ajlo: jmt$aji_ordinal; 
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tmp$set_lock (tmv$pt1_ lock); 

a@jlo := ijle_ pA.ajl_ordinatl; 

IF (jmv$aji_p* [ajlo].in_use = jmc$lock_ajl) THEN 
jmp$free ajl_with lock (ijle_p, jmc$lock_aj1); 

ELSE 
jmv$ajl_p* [ajlo].in_use := jmv$ajl_pA [aj1lo].in_use 

IFEND; 

tmp$clear lock (tmv$pt1_lock) ; 


PROCEND jmp$uniock_ajl; 


PROCEDURE [XREF] jsp$free swapped_jobs memory 
( ijl_erdinal: jmt$ijl_ordinal); 


PROCEDURE [XREF] mmpS$assign_asid (VAR asid: ost$asid; 
VAR asti: mmt$ast_index; 
VAR aste_p: AmmtS$active_segment_table_ entry) ; 


PROCEDURE [INLINE] mmp$check_queues; 


?1F mmc$debug check queues THEN 
IF mmv$check_queues > O THEN 
mmp$xcheck_ queues; 
IFEND; 
?IFEND; 


PROCEND; 


PROCEDURE [XREF] mmp$delete_pt_entry 
( pfti: mmt$page_frame_index; 
unlink page from_segment: boolean); 


PROCEDURE [INLINE] mmp$fetch_pfti_array_size 
(VAR pfti_size: integer) ; 


PROCEDURE [INLINE] mmp$find_next_pft i 
(VAR xpfti: mmt$page_frame_index) ; 


PROCEDURE [XREF] mmp$free_asid (asid: ost$asid; 
aste_p: Ammt$active_segment_table_ entry) ; 


PROCEDURE [INLINE] mmp$get_inhibit_io status 
( ijl_ordinal: jmt$ijl_ordinatl; 
lock: boolean; 
VAR inhibit _io: boolean; 
VAR ijle_p: Ajmt$initiated_job_list_entry); 


VAR 


jmc$ lock _ajl; 
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ajlo: jmt$ajil_ordinal; 


imp$get_ijle_p (ijl_ordinal, ijle_p); 
inhibit _io := (ijle_p4%.swap_status > jmc$inhibit_memory manager io); 
IF NOT inhibit _io THEN 
IF lock THEN 
tmp$set_lock (tmv$pt1_lock); 
jmp$lock_ajl_with_lock (ijle_p, ijl_ordinal, ajlo); 
tmp$clear_lock (tmv$pt1_lock) ; 
IFEND; 
IFEND ; 


PROCEND mmp$get_inhibit_io_status; 


PROCEDURE [XREF] mmp$initialize_find _next_pfti (xsva: ost$system_virtual_address; 
length: ost$segment_length; 
end_point_option: (include _partial_pages, exclude _partial_ pages) ; 
page _selection_criteria: mmt$page_selection_criteria; 
aste_p: Ammt$active _segment_table_entry; 
VAR xpfti: mmtS$page_ frame_index) ; 


PROCEDURE [XREF] mmp$make_pt_entry (sva: ost$system_virtual_address; 
pfti: mmtS$page_frame_index; 
aste_p: Ammt$active_ segment_table_entry; 
pfte_p: Ammt$page frame_table_entry; 
VAR mpt_status: mmt$make_pt_entry_ status) ; 


FUNCTION [INLINE] mmp$get_sdt_entry_p 
( xcb_p: Aost$execution_control_ block; 
segnum: ost$segment): Ammt$segment_descriptor ; 


mmp$get_sdt_entry_p := #address (1, #segment (xcb_p), 
8 * segnum + xcb_pA.sdt_offset); 


FUNCEND; 


FUNCTION [INLINE] mmp$get_sdtx_entry_p 
( xcb p: Aost$execution_control_ block; 
segnum: ost$segment): Ammt$segment_descriptor_extended; 


mmp$get_sdtx_entry_p := #address (1, #segment (xcb_p), 
#SIZE (mmt$segment_descriptor_extended) * segnum + xcb_pA.sdtx_offset) ; 


FUNCEND; 


{ This procedure verifies that the asti stored in the file descriptor entry is still being used by 
{ the same job for the same file. If the asti is ok, it is returned; otherwise 0 is returned. 


PROCEDURE [INLINE] mmp$get_ verify _asti_in_fde 
( fde_p: gft$locked_file_desc_entry_p; 
sfid: gft$system_file_identifier; 
ijlo: jmt$ijl_ordinal; 
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VAR asti: mmt$ast_index) ; 


ed 


The procedure mmp$page_pull_hash_sva is called to hash for a page in the page table. 
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If the page is in 


one of the availablie queues, OR if it is tocked for 10, OR if it is a valid page in the page table, 


page will aiso be relinked into the appropriate queue. 


If the page is not found, page _count will be set to zero and pstatus will be set to ps_done. 


ed 


{ 
{ 
{ 
{ page_count will be set to 1, pstatus will be set, and pfti will be set. If it is an available page, 
{ 
{ 
{ 


PROCEDURE [inline] mmp$page_pull_hash_sva 
( sva: ost$system_virtual_address; 
aste_p: Ammt$active_segment_table_entry; 
VAR page_count: mmt$page_frame_ index; 
VAR pstatus: mmt$page_pull_status; 
VAR pfti: mmt$page_ frame_index) ; 


PROCEDURE [XREF] mmp$preset_reai_memory (sva: ost$system_virtual_ address; 
preset value: pmt$initialization_vaiue) ; 
PROCEDURE [INLINE] mmp$purge_all_cache_ map; 


VAR 
null_sva: O .. OF FFFFFFFFFFF(16) ; 


IF mmv$multiple_ caches OR mmv$multiple page maps THEN 
mmp$purge_all_cache_map_proc; 
ELSE 
#purge_ buffer (osc$purge_all_cache, null_sva); 
#purge buffer (osc$purge_ali_page_seg_ map, null_sva); 
IFEND; 


PROCEND; 
PROCEDURE [XREF] mmp$purge_al1l_cache_proc; 


PROCEDURE [XREF] mmp$purge_all_map_proc; 
PROCEDURE [XREF] mmp$remove_pages_working set (sva: ost$system_virtual_address; 
length: ost$segment_length; 


aste_p: Ammt$active_segment_table_entry; 
VAR count: integer); 


PROCEDURE [INLINE] mmp$reset_find_next_pfti 
(VAR xpfti: mmt$page_frame_index) ; 
{ mmp$reset_ store next_pfti contains inline proc named mmp$reset_ store _pft i 


PROCEDURE [INLINE] mmp$reset_store_pfti; 
PROCEDURE [INLINE] mmp$reset_store_pfti_reverse; 


PROCEDURE [INLINE] mmp$set_include_ pages_in_dump 7 


the 
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( segment _number: ost$segment ; 
fde_p: gft$locked file _desc_entry_p; 
sdt_p: Ammt$segment_descriptor ; 

VAR include pages _in_dump: boolean) ; 


IF (sdt_pA.ste.wp <> osc$non_writablie) THEN 
IF (segment_number < mmc$first_loader_predefined_seg) OR 
(fde_ pA.stack_for_ring <> ©) GR 
(fde_ pA.flags.global_template_ file) OR 
(sdt_p4A.ste.ri ¢= 2) THEN 
inciude_ pages _in_dump : = TRUE; 
ELSE 
inciude_ pages_in_dump :=: FALSE; 
IFEND; 
ELSE 
include _pages_in dump := FALSE; 
IFEND; 


PROCEND mmp$set_include_pages_in_dump; 
{ mmp$store next pfti contains inline proc named mmp$store_pft i 


PROCEDURE [INLINE] mmp$store_pfti (pfti: mmt$page_frame_index) ; 


PROCEDURE [INLINE] mmp$store_ pfti_reverse (pfti: mmt$page_frame_index) ; 
PROCEDURE [INLINE] mmp$sva_purge_alil_cache [(sva: ost$system_virtual_address) ; 
IF mmv$muiltiple caches THEN 
mmp$purge_all_cache_proc; 
ELSE 
#purge_ buffer (osc$sva_purge_all_cache, sva); 
IFEND; 


PROCEND; 
PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state table) ; 


PROCEDURE [INLINE] mtp$set_status_ abnormal (identifier: string (2); 
condition: osc$max_ status condition number + 1 .. OF FFFFFFFFF( IE); 
VAR status: syt$monitor_ status) ; 
PURPOSE: procedure mtp$step_unstep system 


(i.e. not an operator command or a recovery), then ‘ERR=‘ must be first 4 characters or it will 


All messages sent to the Top Line must have a VEOSxxxx code in the text. Guidelines for using 


ree eR eS ee os 


dpp$display_error which is in the deck dpm$system_console_ monitor. 
PROCEDURE [XREF] mtp$step_unstep_ system 
(term_code: syt$180_idle code; text: string(*<=76) ); 


PROCEDURE [XREF] osp$process_keypoint_page_ fault 
( utp offset: integer; 
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VAR keypoint_page_fault_status: mmt$keypoint_page_ fauilt_status) ; 


PROCEDURE [XREF] tmp$cause_task_switch,; 


PROCEDURE [XREF] tmp$dequeue task (VAR queve_link: tmt$task_queue_link; 
VAR taskid: ost$global_task_id); 


PROCEDURE [XREF] tmp$find_next_xcb (search: tmt$fnx_search_type; 
ijle_p: Ajmt$initiated_job_list_entry; 
ijl_ordinal: jmt$ijl_ordinal; 
VAR state: tmt$find_next_xcb state; 
VAR xcb_p: Aost$execution_control_ block); 


PROCEDURE [XREF] tmp$get_top_of_ stack (taskid: ost$global_task_id; 
ring: ost$valid_ring; 
VAR top_of_ stack: integer); 


PROCEDURE [XREF] tmp$get_xcb_p (task_id: ost$global_task_id; 
VAR xcb_p: Aost$execution_control biock; 
VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] tmp$monitor_ flag job_tasks 
( monitor flag _id: syt$monitor_ flag; 
ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] tmp$queue task (taskid: ost$global_task_id; 
task_status: tmt$task_status; 
VAR queue_link: tmt$task_queue_link) ; 


PROCEDURE [XREF] tmp$reissue_monitor_request ; 


PROCEDURE [XREF] tmp$send_monitor_fauit (task_id {input} : ost$global_task_id; 
monitor fault _p finput} : Aost$monitor fault; 
check_traps_enabled {input} : BOOLEAN)  ; 


PROCEDURE [XREF] tmp$set_monitor_flag (task_id: ost$global_task_id; 
Flag _id: syt$monitor_ flag; 
VAR status: syt$monitor_status) ; 


PROCEDURE [XREF] tmp$test_get_xcb_p (task_id: ost$global_task_id; 
VAR xcb_p: Aost$execut ion control block; 
VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


Writes a line of text to the Top Line of the console. If the idie code specified indicates an error 
prefixed. Then the system is Terminated, Aborted, Stepped, or Idled per the idie code specified. 


VEOSxxxx codes and a 11st of all VEOQSxxxx codes are documented in the comments found in the proc 
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VAR 
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dfv$file_ server debug enabled: [XREF] boolean; 


VAR 
gfv$null_sfid: [XREF, READ, 


SECTION 
oss$mainframe_wired_ literal: 


OSSSMAINFRAME WIRED LITERAL] gft$system_file_identifier ; 


READ ; 


{Define pointer to Initiated Job List (IJdL). 


VAR 


imv$iji_p: [XREF]) imt$ijl_p; 


VAR 


jmv$system_ijl_ordinal: [XKREF] jmt$ijl_ordinal; 


VAR 


jsv$free_ working set_on_swapout: [XREF] boolean; 


VAR 


jsv$ijl_swap_queue_list: [XREF] jst$ijl_swap_queue_list; 


VAR 


jisv$max_pages_ first _swap_ task: [XREF] integer; 


VAR 
jsv$maximum_pages_to_swap: 


{The following variable defines 
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{ Oo - no swapping active 
{ 1 - Swapping active 
{ > 1 - to be defined 
VAR 
mmv$aging_ algorithm: [XREF] 
VAR 


[XREF] integer; 


the agining algorithm that is used by memory manager. 
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integer ; 


mmv$S$image_ file: [KXREF] mmtSimage_file; 


{This variable defines the rate 


at which memory manager scans all jobs and 


{ages the working sets of any CP bound job that is found. 


VAR 
mmv$ jws_queue_age_interval: 


{ Define a variable to contain 


VAR 


[XREF] integer ; 
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the index of the last shared site queue that is actually being used. 


mmv$ last_active_ shared _ queue: [XREF] mmt$global_page_queue_ index; 


VAR 
mmv$pages_ to _dump_p: [XREF] 


Apacked array [0 .. *] of boolean; 


{Define pointer to array for holding PFTI lists. This array is used in monitor for holding 
{PFTIs of pages belonging to a segment. 


VAR 


mmv$pfti_larray_p: [KREF] Ammt$pfti_array; 


TYPE 
mmt$pfti_array = RECORD 
pfti_first: © .. osc$max_page_frames, 
pfti_index: © .. osc$max_page_frames, 
last _pfti_index: O© .. osc$max_page_frames, 
pftis: ARRAY [0 .. *] of mmt$page_frame_index, 
RECEND; 


VAR 
mmnv$preset_conversion_tablie: 


[XREF, READ] array [pmt$initialization_value] 


1ists 
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8324 of integer ; 
8325 
8327 {Time for next periodic call to Memory Manager from CP Monitor. 
8328 
8329 VAR 
8330 mmv$time_to_call_mem_ mgr: [XREF] integer; 
8332 {Monitor segment tabie.]} 
8333 
8334 VAR 
8335 mtv$monitor_segment_table: [XREF] record 
8336 st: ALIGNED [© MOD 8] array [0 4095] of mmt$segment_descriptor, 
6337 recend; 
8338 
© 8342 VAR 
Oo 8343 mtv$sys_core_init_complete: [XREF] boolean; 
© 8345 [This variable specifies the lower and upper RMA addresses available to NOSVE. 
© 8346 
f°) 8347 VAR 
oO 8348 osv$180_memory_limits: [XREF] record 
o 8349 lower: oO OFFFFFFFF[IE), 
Oo 8350 deadstart_upper: © .. OF FFFFFFF(1E), { Upper limit of memory during deadstart. 
oO 8351 upper: 0 OFFFFFFFF( 16), 
oO 8352 recend; 
© 8353 
o 8355 VAR 
Oo 8356 osv$time_to_ check _asyn: [XREF] integer; 
o 8357 
o 8359 
Oo 8360 VAR 
o 8361 tmv$null_global_task_id: [READ] ost$global_task_id := [0, 0]; 
.°] 8362 
Oo 8364 
Oo 8365 VAR 
Oo 8366 tmv$ptil_p: [XREF] Atmt$primary task _list; 
Oo $8367 
ie) 8418 
° 8419 {Define AST template for job swapper to use to create a new entry for a Job Fixed segment. 
oO 8420 
° 8421 VAR 
oO 8422 mmv$initial _job_fixed_ast_entry: [XDCL, READ] mmt$active_segment_table_entry := 
SOURCE LIST OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
Global Variable Declarations - XREF and XDCL : 
o 8423 [fo, 0], ©, [0, 0], TRUE, mmc$pq_job_fixed, * , TRUE]; 
Oo 8424 
Oo 8425 { Define array for keeping statistics on status values returned from MMPSWRITE PAGE TO DISK. 
Oo 8426 
Oo 8427 VAR 
oO 8428 mmv$write page statistics: [XDCL] array [mmt$write _page_to_disk_status] of integer := 
° 8429 [Oo, ©, ©, ©, 90, 0, O]; 
o 8430 
oOo 8432 
°o 8433 { The following variables + the Global Page Queue List below are all managed by the Manage Memory Utility. 
Oo 8434 { mmv$age_ interval _ ceiling 
Oo 8435 { mmv$age_interval_floor 
oO 8436 { mmvSaggressive_aging_ level 
Oo 8437 { mmv$aggressive_aging level_2 
oO 8438 { mmv$aging algorithm 
Oo 8439 f{ mmv$ jws_queue_age_interval 
Oo 8440 { mmv$min_avail_pages 
Oo 8441 { mmv$page_streaming_prestream 
© 8442 { mmv$page_streaming threshold 
© 8443 { mmv$page_streaming_reads 
Oo 8444 { mmv$page_ streaming random_limit 
Oo 8445 { mmv$per iodic_caill_interval 
oO 8446 { mmv$t ick_t ime 
oO 8447 { mmuv$shared queue_age_ interval 
oO 8448 { mmv$swapping_ aic 
o 8449 { 
oO 8450 { Define array for the Global Page Queue List and initialize it to the default values as defined in the 
o 8451 { common deck mmc$manage_memory_ utility. 
© 8482 { 
© 8453 
oO 8454 
oO 8455 77 FMT (FORMAT := OFF) ?? 
Oo 8456 VAR 
oO 8457 mmv$gpqi: [XDCL, #GATE] mmt$gliobal_page_quewe_list := 
oO 8458 [ [ff0,0],0],0,0,0], {free } 
o 8459 [f10,0],0],0,0,0], {available} 
oO 8460 [{£0,0],0],0,0,0], {available modified} 
o 8461 [f£0,0],0],0,0,0], {wired} 
oO 8462 [ff[0,0],0],mmc$mmu_queue_age_task_service,mmc$mmu_queue_ minimum, mmc$mmu_queue_maximum], 
© 8463 [£10,0],0],mmc$mmu_queue_age_pf_execute,mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], 
Oo 8464 [[f[O,0],0],mmc$mmu_queue_age_pf_non_exec,mmc$mmu_queue_minimum, mmc$mmu_queue_ maximum], 
oO 8465 [ff0,0],0],mmc$mmu_queue_age_device_file,mmc$mmu_queuve_ minimum, mmc$mmu_queue_ maximum], 
oO 8466 [110,0],0],mmc$mmu_queue_age_ file server ,mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], 
oO 8467 [[£0,0],0],mmc$mmu_queue_age_other ,mmc$mmu_queue_minimum,mmc$mmu_queue_maximum] , 
Oo 8468 [{10,0],0],mmc$mmu_queue_age_site_ queues, mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_01} 
Oo 8469 [[[0,0],0],mmc$mmu_queue_age_ site _queues,mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], {site_02} 
o 8470 (1f0,0],0],mmc$mmu_queue_age_ site queues,mmc$mmu_queve_ minimum, mmc$mmu_queue_maximum], {site_03} 
oO 8471 [{{[0,0],0],mmc$mmu_queue_age_ site queues, mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_04} 
Oo 8472 [[f[0,0],0],mmc$mmu_queue_age_ site queues, mmc$mmu_queue_minimum,mmcS$mmu_queue_maximum], {site_05} 
oO 8473 [{[0,0],0],mmc$mmu_queue_age_site_ queues, mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], {site_06} 
oO 8474 [[L[O,0],0],mmc$mmu_queue_age site queues, mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], {site_07} 
Oo 8475 [[[0,0],0],mmc$mmu_queue_age_site_queues,mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], {site_08} 
Oo 8476 [{[0,0],0],mmc$mmu_queue_age_site_queues,mmc$mmu_queve_minimum,mmc$mmu_queue_maximum], {site_09} 
Oo 8477 [{f0,0],0],mmc$mmu_queue_age_ site queues, mmc$mmu_queve_ minimum, mmc$mmu_queue_ maximum], {site_10} 
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Oo 8478 [[1O0,0],0],mmc$mmu_queue_age_site _queues,mmc$mmu_queue_ minimum, mmc$mmu_queue_maximum], {site_11} 
oO 84798 [£lO,0}],0],mmc$mmu_queue_age_site_queues,mmc$mmu_queue_minimum, mmc$mmu_queue_maximum], {site_12} 
© 8480 [£l0,0],0],mmc$mmu_queue_age_site_queues,mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_13} 
Oo 8481 [{lo,o], Oo], mmc$mmu_queue_age site queues, mmc$mmu_queue_minimum, mmc$mmu_queue_max imum] , {site 14} 
Oo 8482 [{lo,o], Sate pec nab la Se be dl a he HS {site_15} 
Oo 8483 [{[0,0],0],mmc$mmu_queue_age_site_ queues,mmc$mmu_queue_ minimum, mmc$mmu_queue_maximum], {site_16} 
Oo 8484 [110,0],0], mmc$mmu_queue_age_ site queues,mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_17} 
Oo 8485 {[10,0],0], mmc$mmu_ _queue_age_ site _ queues ,mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_18} 
© 8486 [{10,0],o], mmc $mmu_ _queue_age_ site _queues,mmc$mmu_queue_minimum,mmc$mmu_queue maximum], {site_19} 
o 8487 [[10,0],0],mmc$mmu_ _Queue_age_ site _queues ,mmc$mmu_queue_minimum,mmc$mmu_queue_maximum], {site_20} 
o 8488 [LLL0,0],0]),mmc$mmu _ _queue_age_ site _queues,mmc$mmu_queue_minimum,mmc$mmu_queue_ maximum], {site_21} 
© 8489 [f10,0],0),mmceSmmu_ _queue_age_ site _queues,mme$mmu_queue_ minimum,mmc$mmu_queue_maximum], {site_22} 
Oo 8490 [1 10,0],0],mmc$mmu~ queue _age_ site _ queues, mmc$mmu_queue_minimum, mmc$mmu_ queue _ maximum), {site 23} 
o 8491 [E10,0],0],mmc$mmu_ queue _age_ site _queues, mmc$mmu_ _queue minimum, mmc $mmu_ _queue_ ~maximum]) , {site 24} 
Oo 8492 [[[0,0],0],mmc$mmu_ queue _age_ site _queues, mmc $mmu_ _queue_ minimum, mmc$mmu__ _qQueue_maximum], {site _25} 
© 8493 [1[0,0],0],1,0,0], {shared_io_error} 
Oo 8494 [f10,0],0],1,0,0] M3 {swapped_io_error} 
° 8495 77 FMT (FORMAT := ON) ?7? 
° 8496 
.°) 8498 
° 8499 VAR 
o 8500 null_pva: © .. OF FFFFFFFFFFF(IG), 
o 8501 null _sva: [STATIC] ost$system_virtual_address := [0, Oo], 
Oo 8502 total _contig pages_assigned: integer ear 
ce) 8503 
o 8504 dfv$max_bytes_to_write: [XDCL] integer := 16384 * 8, {!!! temp - move to DF} 
Oo 8505 mmv$advise_in_aio_Timit: [XDCL, #GATE] integer := 24, 
oO 8506 mmv$age_interval_ceiling: [XDCL, #GATE] 0 .. 255 := mmc$mmu_age_interval_ceiling, 
Oo 8507 mmv$age_interval_ floor: [XDCL, #GATE] © .. 255 := mmc$mmu_age_interval_floor, 
fe) 8508 mmvS$aggressive_aging level: [XDCL, #GATE] integer := mmc$mmu_aggressive_aging one, 
o 8509 mmv$aggressive_aging level_2: [XDCL, #GATE] integer := mmc$mmu_aggressive_aging two, 
© 8510 mmv$aging statistics: [XDCL, #GATE] mmt$aging statistics, 
Oo 8511 mmv$aio_lVimit: [XDCL, #GATE] integer := 60000, 
oO 8512 mmv$aio_limit_count: [XDCL, #GATE] integer := Oo, 
o 8513 mmv$assign_contiguous_pass_cnt: mmt$assign_contig_ passes := [0, 0, Oo], 
° 8514 mmvSassign_contig_reject: integer, 
oO 8515 mmvSassign_multiple pages: [XDCL, #GATE] integer := 50, 
fe] 8516 mmv$assign_pages_purge_ count: integer :=: Oo, 
o 8517 mmv$ast_p: [XDCL, #GATE] Ammt$active_segment_table := NIL, 
Oo 8518 mmv$async_work: [XDCL] mmt$async_work_list := [FALSE, FALSE, [0, 0], NIL], 
Oo 8519 mmv$contiguous mem_ltength_max: [XDCL, #GATE] ost$segment_length := 65536, 
Oo 8520 mmv$dm_flag_on_write: [XDCL] 0 .. OF FFFFEFFF(IG) := 1, 
o 8521 mmv$file_allocation_interval: [XDCL, #GATE] integer := 20000, 
oO 8522 mmv$ jmtr_escaped_aliocate: [XDCL, #GATE] integer := 0, 
o 8523 mmv$last_segment_accessed: [XDCL, #GATE] ost$segment, 
° 8524 mmv$lost_escaped_allocate: [XDCL, #GATE] integer := 0, 
oO 8525 mmv$max_pages_nmo_file: [XDCL, #GATE] integer :: 15, {This constant is forced negative during deadstart 
ce) 8526 { to disable transient segments til Space Mgr runs. 
Oo 8527 mmv$max_working set_size: [XDCL, #GATE] integer := 1000, 
oO 8528 mmv$maxws_ aio count: [XDCL] integer := 0, 
o 8529 mmv$maxws_ aio_slowdown: [XDCL] integer := 60000000, 
© 88530 mmv$maxws_ aio_thresnold: [XDCL, #GATE] integer := 10, 
o 8531 mmv$memory wait _queue: [XDCL] tmt$task_queuve_link := [0, 0], 
oO 8532 mmv$min_avail_pages: [XDCL, #GATE] integer := mmc$mmu_min_avail_pages, 
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SOURCE 


Gtobal 


Variable Declarations - XREF and XDCL 


eoo0oo0odoooaoodooodocooonoeoooodgoooodgnaodoooooooooodgcoaooeo0COn0OC0C000c0 00008 


8533 
8534 
8335 
8536 
8537 
8538 
8539 
8540 
8541 


ror omy me 


mmv$multiple_caches: [XDCL, #GATE] boolean := FALSE, 
mmv$mulitiple_ page_maps: [XDCL, #GATE] boolean := FALSE, 


mmv$muiti_ page write: [XDCL, #GATE] boolean := TRUE, 

mmv$no_memory_ buffering: [XDCL, #GATE] boolean := FALSE, * 
mmvS$pages_ per_new_page_ fault: [MDCL, #GATE] 1... 8 := 1, 

mmv$page_ streaming _prestream: [XDCL, #GATE] © .. 255 := mmc$mmu_ps_prestream, 
mmv$page_ streaming threshold: [XDCL, #GATE] integer := mmc$mmu_ps_threshold, 
mmv$page_streaming transfer: [XDCL, #GATE] integer := mmc$mmu_ps_transfer_size, 
mmv$page_ streaming reads: [XDCL, #GATE] © .. 255 := mmc$mmu_ps_reads, 

mmv$page_ streaming _random_limit: [XDCL, #GATE]) © .. 255 := mmcS$mmu_ps_random_limit, 
mmv$pages_ for_overallocation: [XDCL, #GATE] integer := 16, 

mmv$paging statistics: [XDCL, #GATE] mmt$paging statistics, 

mmv$pf_ statistics: [XDCL, #GATE] mmt$pf_statistics, 


mmv$pf_sva_array: [XDCL] record 
next i: integer, 


pf recs: array [0 .. num pf _ recs - 1] of packed record 
pstatus_time: 0 .. oFFffF(16), 
sva: ost$system_virtual_address, 
recend, 
recend, 
mmv$pft_p: [XDCL, #GATE] Ammt$page_frame_table := NIL, 


mmv$pt_length: [XDCL, #GATE] integer, 

mmv$pt_p: [XDCL, #GATE] Aost$page_table, 

mmvS$reassignable_page_frames: [XDCL, #GATE] mmt$reassignable_page_ frames, 
mmv$read_tu_execute: [XDCL, #GATE] 0 .. OF FFFFFFF(1E6) := 1, 
mmv$read_tu_read_ write: [XOCL, #GATE] © .. OF FFFFFFF(1EG) =: 
mmv$refs_ to_unrec_df_ file_inhib: [XDCL, #GATE] integer := 0, 
mmv$refs to_unrec_df_file_term: [XDCL, #GATE] integer :=: Oo, 
mmv$reserved page _ count: [XDCL, #GATE] integer := 0, 


1, 


Define the number of free and available pages that job scheduler tries to keep 
available for all active jobs. 


mmv$resident_job_target: [XDCL, #GATE] integer := 60, 

Definme the number of pages that memory manager and job swapper will try to 
keep available in ‘now’ + ‘soon’ reassignable memory. If ‘now’ + ‘soon’ 
is less than or equal to this vatue 10 is initiated on jobs in the tong 
wait queve until this value is exceeded. 


mmv$sdtx_entry size: [XDCL, #GATE] integer :: #SIZE (mmt$segment_descriptor extended), 


mmv$shared_pages_in_jws: [XDCL, #GATE] boolean := TRUE, 
mmv$swapping aic: [XDCL, #GATE] integer := mmc$mmu_swapping_ aic, 
mmv$tables initialized: [XDCL, #GATE] boolean := FALSE, 


mmv$test_reassign_asid: [XDCL] boolean := FALSE, 

mmv$tick_time: [XDCL, #GATE] integer := mmc$Smmu_tick_time, 

mmv$volume_ wait queue: [XDCL] tmt$task_queue_lTink := [0, 9], 

mmv$Swrite aged out pages: [XDCL, #GATE] integer := 100000, 

osv$page_size: [XDCL, #GATE] ost$page_size, 

Syv$perf_keypoints_enabled: [XDCL, #GATE] syt$perf_keypoints enabled := 
[FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE], 

Syv$recovering job_count: [XDCL, #GATE] integer :=: Oo, 

syv$refs_to_unrecovered_ seg: [XDCL] integer := 0; 
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o 8589 CONST 
o 8590 num pf recs = 256; 
o 8591 
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MMPGPURGE ALL CACHE, MMPSPURGE_ ALL MAP - CACHE/MAP MANAGEMENT 


o eo00c 000000 


eo0oo0oocoo0o030 


8594 
8535 
8596 
8537 
8598 
8589 
8600 
8601 
8602 
8603 
8604 
8605 
8606 


8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 
8620 


8624 
8625 
8626 
8627 
8628 
86293 
8630 
8631 
8632 


8636 
8637 
8638 
8639 
8640 
8641 
8642 
&643 
8644 


PROCEDURE [INLINE] mmp$aste_pointer_from_pfti (pfti: mmt$page_frame_index; 
VAR aste_p: Ammt$active_ segment _table_ entry); 


? IF mmc$debug_aste_p_from_pfti THEN 
mmp$aste_pointer (mmv$pft_pA [pfti].sva.asid, aste_p); 
IF aste_p <> mmv$pft_pA [pfti].aste_p THEN 
mtp$Serror_stop (’MM - ERROR IN ASTE_ POINTER _FROM_PFTI’); 
IFEND; 
? ELSE 
aste_p := mmv$pft_p4 [pfti].aste_p; 
? XIIFEND; 


PROCEND mmp$aste_pointer_from_pfti; 


PROCEDURE [INLINE] mmp$purge_all_page_map; 


VAR 
null_sva: 0 .. OFFFFFFFFFFFE(IG); 


IF mmv$multiple_ page maps THEN 
mmp$purge_all_map_proc; 
ELSE 


#purge_ buffer (osc$purge_all_page_seg map, nuli_sva); 
IFEND ; 


PROCEND; 


PROCEDURE [INLINE] mmp$sva_purge_one_page_map (sva: ost$system_virtual_ address) ; 


IF mmv$multiple page maps THEN 
mmp$purge_all_map_proc,; 
ELSE 
#purge_ buffer (osc$sva_purge one_page_map, sva); 
IFEND ; 


PROCEND; 


PROCEDURE [INLINE] mmp$sva_purge_all_page_map (sva: ost$system_virtual_address) ; 


IF mmv$multiple page maps THEN 
mmp$purge_all_map_proc ; 
ELSE 
#purge_ buffer fosc$sva_purge_all_page_ map, sva); 
IFEND; 


PROCEND ; 
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8660 
8661 
8662 
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8664 
8665S 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
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mmm$page_fault_processor 


NOS/VE CYBIL/II 1.0 89102 


or writing a page to disk. 


the file EOI is set to the beginning of the next page. 


sere ere Oe 


PROCEDURE [INLINE, XDCL] mmp$update_eoil 
( fde_p: gft$locked file _ desc _entry_p; 
offset: ost$segment_offset ; 
reason: mmt$update_eoi_reason) ; 


IF offset >: fde_pA.eoi_byte_ address THEN 


fde_pA.eoi_byte_address := offset + osv$page_ size; 

fde_ pA.flags.eoi_modified := TRUE; 

IF reason = mmc$uer_muitiple pages_assigned THEN 
fde_p*.eoi_ state := mmc$eoi_uncertain; 

ELSE 
fde_ pr.eoi_ state := mmc$eoi_rounded; 

IFEND; 

ELSEIF reason = mmc$uer _page_written THEN 


IF (offset + osv$page size) > fde_pr.eoi_byte_ address THEN 
IF fde_pr.eoi_state <> mmc$eoi_actual THEN 


fde_ pAr.flags.eoi_modified :=: TRUE; 
fde_pA.eoi_byte_address :: offset + osv$page_size; 
fde_pA.eoi_state := mmc$eoi_rounded; 
IFEND,; 
IFEND; 


IFEND ; 


PROCEND mmp$update_ eoi; 


OFFSET - must be the FIRST byte of the page assigned/written. 
are assigned, offset should the beginning of the page faulted for. 


If the beginning of the new page is beyond the current FDE EOI, then 


This procedure is called to update EOI (if necessary) after adding a page to a segment 


If multipie pages 
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MMPSAST_INDEX - Convert between ASID and AST INDEX : 
{ ewer nenwmevneenwneeneeneneanwvnenensweevnennennewnn reno nensnonere eww nmneceerne nse ewe mrnewerannwnnwneowrnnnennnnsnssaonwrnwnwnenenwnwtanann avnmnannnnnan een 
{Name 
{ mmf$asid 
{ mmp$aste_pointer 
{Purpose: 
{ These functions convert AST indexes into an ASID and vise-versa. 
{Input: 
{ pfl_index or ASID 
{Output: 
{ asid or pfi_index 
{Error Codes: 
{ none 
{ awe eese meas e enn vnnwnn ene nnn enn nrnecewannrnneerenean enero n nnn nero ns n wren emnwnnweeanwrn wee anne sae wnennennrwn ener anne ean anne wow nonwnennenanwwnenwnenas 
VAR 
mmv$a_mult: [XDCL, #GATE] © .. 10000(16), 
mmv$a_divisor: [XDCL, #GATE] © .. 10000(16), 
bits: array [0 .. 15] of © .. 15 := [0, 8, 4, 12, 2, 190, 6, 14, 1, 9, 5, 13, 3, 11, 7, 15]; 
PROCEDURE [XDCL, INLINE] mmp$asid 
( xasti: mmt$ast_index; 
VAR x_asid: ost$asid); 
VAR 
asti: mmtSast_ index, 
asid: integer; 
asti = Masti; 
asid = {bits [asti MOD 16) * 4086) + (bits [(asti DIV 16) MOD 16] * 256) + 
(bits [(asti DIV 256) MOD 16] * 16) + bits [(asti DIV 4096) MOD 16]; 
asid := asid DIV mmv$a_divisor + {asid MOD mmv$a_divisor) * mmv$a_mult; 
x a@Sid := asid; 


PROCEND mmpSasid; 


PROCEDURE [XDCL, INLINE] mmp$aste_pointer 
( xasid: ost$asid; 
VAR aste_p: Ammt$active_segment_table_ entry) ; 


VAR 
asid: ost$asid, 
asti: integer; 


asid :=: xasid; 

asid := asid DIV mmv$a_mult + (asid MOD mmv$a_muit) * mmv$a_divisor ; 

asti := (bits [asid MOD 16] * 4096) + (bits [(asid DIV 16) MOD 16] * 256) + 
(bits [lasid DIV 256) MOD 16] * 16) + bits [(asid DIV 4096) MOD 16]; 

aste_p := AmmvSast_pA [astil]; 


IF NOT aste_p4.in_use THEN 
aste_p := NIL; 
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MMPS$ASID, MMPSAST_INDEX - Convert between ASID and AST INDEX 
$C 8742 IFEND; 


9C 8743 
sC 8744 PROCEND mmpSaste_pointer ; 


° &746 
Q 8747 PROCEDURE [XDCL, INLINE] mmp$asti 
4 8748 ( xasid: ost$asid; 
4 8749 VAR asti: mmt$ast_index) ; 
4 8750 
4 8751 VAR 
4 8752 asid: ost$asid; 
4 8753 
4 8754 asid = xasid; 
4 8755 asid :: asid DIV mmv$a_mult + (asid MOD mmv$a_muit) * mmv$a_divisor; 
4 8756 asti :: (bits [asid MOD 16] * 4096) + (bits [{asid DIV 16) MOD 16] * 256) 
4 8757 (bits [(asid DIV 256) MOD 16] * 16) + bits [{asid DIV 4086) MOD 
4 8758 
4 8753 PROCEND mmp$asti; 
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ob 
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oO 8761 

Oo 8762 { 

° 8763 { This function determines the shared queue id for a file whose pages are going 
.°] 8764 { to be kept in one of the shared queues. 

© 8765 { - 

oO 8s&766 

Oo 8767 FUNCTION [XDCL, INLINE] mmp$determine shared queue_id 

4 8768 ( fde_p: gft$locked_ file desc entry _p; 

4 8769 ste_p: Ammt$segment_descriptor): mmt$page_frame_queue_ id; 

4 8770 

4 8771 IF fde_pA.file_ kind = gfc$fk_job_permanent_file THEN 

10 8772 IF (ste_p4.ste.xp = osc$non_executable) OR (ste_pA.ste.wp <> osc$non_writable) THEN 
28 8773 mmp$determine_shared_queuve_id := mmc$pq_ shared pf _non_execute; 
2E 8774 ELSE 
2E 8775 mmp$determine_ shared _queue_id := mmc$pq_ shared _pf_execute; 
30 8776 IFEND ; 

34 $8777 ELSEIF fde_ pA.file_kind = gfc$fk_catalog THEN 
3A 8778 mmp$determine_ shared queue_id := mmc$pq_ shared _pf_non_execute; 
42 8779 ELSEIF fde_pA.flags.global_template_ file THEN 
4C 8780 mmp$determine_shared queue_id := mmc$pq_shared_task_service; 
50 8781 ELSEIF fde_ pA.file_kind = gfc$fk_device file THEN 
56 8782 mmp$determine_ shared _queue_id := mmc$pq_shared_ device file; 

SE 8783 ELSE 
SE 8784 mmp$determine_ shared _queve_id := mmc$pq_shared_other ; 

62 8785 IFEND; 

62 8786 


62 8787 FUNCEND mmp$determine_shared_queue_id; 
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8790 


&732 


{ 


{This routine 


{ 


PROCEDURE [INLINE] 

( fde_p: 
segnum: 
ste_p: 
stxe_p: 
cst_p: Aost$cpu_state_tabie; 
force to global: boolean; 

VAR asid: ost$asid; 

VAR aste_p: 


ost$segment ; 
Ammt$segment_descriptor ; 


VAR 
asti: mmtSast_index, 
queue_id: mmt$page_frame_queue_ id; 
mmp$assign_asid [(asid, 


asti, aste_p); 


fde_ pA.asti := asti; 

IF fde_pr.stack_for_ring = © THEN 
fde_p’%. last _segment_ number :=: 
fde_ p%.global_task_id :5 

IFEND ; 


aste_ pA.ijl_ordinal :=: 


NOS/VE CYBIL/II 
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is called to assign and initialize a new AST eantry for a segment. 


initialize new_ast_entry 
gft$ locked file desc_entry_p; 


Ammt$segment_descriptor_extended; 


Ammt$active_ segment_table_entry); 


segnum; 
cst_pA.taskid; 


cst _pA.ijl_ordinal; 


IF mmc$sa_wired IN stxe_pA.software attribute set THEN 


queue_id := mmc$pq_ wired; 


ELSEIF mmc$sa_fixed IN stxe_p4A.software_ attribute set THEN 


queue _id := mmc$pq_job_fixed; 
ELSEIF force _to_ global THEN 

aste_p4.ijl_ordinal := 

queue _ id :: 
ELSE 

queue_id :=: 
IFEND; 


mmc$pq_job_working set; 


aste pA.quevue_id :=: 
aste_ pA.sfid := 


queue_id; 
stxe_ pA.sfid; 
mmp$set_include_pages_in_dump (segnum, 


ste _ pA.ste.asid :: 
ste pA.asti := 


asid; 
asti; 


PROCEND initialize _ new_ast_entry; 


SET_ASSIGN_ACTIVE 


e0o00oo0oooodooo0oo0o0oc00 6 


8841 
8842 
8843 
8844 
8845 
8846 
8847 
8848 
8849 
&8850 
8851 
8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 
8860 


SOTX.ASSIGN_ACTIVE 
mmc$assign_active null = 
mmc$assign_active_escaped - 

etherwise = 


ee ee ee) 


NOS/VE CYBIL/II 


jmv$system_ijl_ordinal; 
mmp$determine_shared_queue_id 


(fde_p, ste_p); 


fde_p, ste_p, aste_p’.include_pages_in_dump) ; 


1.0 89102 1989-08-21. 


is used to set the SDTX flags for a request that requires job mode work. 
has the following values 


Null value 
Implies escaped allocation 
Address that requires job mode work 


PROCEDURE [INLINE] set_assign_active 
( stxe_p: Ammt$segment_ descriptor extended; 
offset: ost$segment_offset }); 


IF stxe_pA.assign_active 


stxe_p%.assign_ active offset; 
ELSE 

stxe_pA.assign_active := mmc$assign_ 
IFEND; 


PROCEND set_assign_active; 


mmc$assign_ 


active_null THEN 


active_escaped; 
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MMPS$CONVERT_PVA - Convert job mode PVA to SVA 


Oo 8863 
© 8864 {------ ees ee Oe ees SS Si Se eee eee ese Sia = werent et eww eee we new ene tee Na alata wt eed ee ee ee 
© 8865 {Name: 
o 8866 { mmp$convert_pva 
© 8867 {Purpose: 
o 8868 { This routine converts a PVA relative to the CURRENT USER TASK 
© 8869 { to an SVA and returns pointers to the SDTX, AST entries for the segment. 
© 8870 [rere eenee ot ete ee ee a ad Na Marla da dela aad wm we eee ee we mente ene enw ee seco mete ees ween mn cnae 
o 8871 
oO 8872 PROCEDURE [XDCL] mmp$convert_pva 
Oo 8873 ( p: Acell; 
Oo 8874 cst_p: Aost$cpu_state_table; 
Oo 8875 VAR xsva: ost$system_virtual_address; 
Oo 8876 VAR fde_p: gft$locked file _desc_entry_p; 
Oo 8877 VAR aste_p: Ammt$act ive _segment_table_entry; 
Oo 8878 VAR ste_p: Ammt$segment descriptor; 
° 8879 VAR stxe_p: Ammt$segment_descriptor_ extended) ; 
ce] 8880 
° 888 1 
° 8882 VAR 
© 8883 asid: ost$asid, 
© 8884 asti: mmt$ast_index, 
© 8885 segnum: ost$segment, 
oO 8886 sva: ost$system_virtual_address, {use local var for performance 
o 8887 force _to_global: boolean; {TRUE if determined page goes in global queue. } 
oO 8888 
° 88893 
cC 88390 segnum :: #SEGMENT (p); 
& 8891 
4 8892 ste_p := mmp$get_sdt_entry p (cst_pA.xcb_p, segnum) ; 
4 88383 stxe_p := mmp$get_sdtx_entry p (cst_pA.xcb_p, segnum) ; 
4 8894 
4 8895 IF (segnum > cst_pA.xcb_p4.xp.segment_table_ length) OR (ste_pA.ste.vl = osc$vl_invalid_ entry) THEN 
90 8&96 mtp$error_ stop (’MM - invalid PVA’); 
BO 8897 IFEND; 
BO 8898 
BO 8899 
BO 8900 { The following trap code is used periodically to trap escaped allocation. Please do not delete this code. 
BO 8901 
BO 8902 { IF mmc$debug THEN 
BO 8903 { IF (stxe_pA.assign_active <> mmc$assign_active_nul1) AND (cst_pA.xcb_p4.xp.p_register.pva.ring > 1) AND 
BO 8904 { (cst_p4.xcb_pA.xp.trap_enable = osc$traps_enabled) AND 
BO sso5 { NOT cst_p4.xcb_ pA.stic_allocation AND : 
BO 8906 { {esc$page fault IN cst_pA.xcb_pA.xp.monitor_ condition_register) AND 
BO 8sso7 { NOT (osc$trap_exception IN cst_pA.xcb_pA.xp.monitor condition_register) THEN 
Bo sso08 { mtp$error_stop (‘PFP-CONVERT--Escaped Allocation.‘); 
BO gssosg { IFEND; 
BO 8910 { IFEND; 
BO 8911 
Bo 8812 {! Does this really happen} 
BO 83913 IF stxe_ pA.sfid.residence = gfc$tr_system_wait_recovery THEN 
BE 8914 Syv$refs_to_unmrecovered seg := syv$refs_ to_unrecovered_ seg + 1; 
BE 8915 aste p := NIL; 
BE 8916 RETURN; 
DA 8917 IFEND; 
DA 8918 
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DA 8918 Sva.asSid := ste _pA.ste.asid; 

DA 83920 sva.offset :: #OFFSET (p); 

DA 8921 

DA 83922 gfp$mtr_get_locked_ fde_p (stxe_ pA.sfid, cst_pr.ijle_p, fde_p); 

180 8923 

180 8924 IF sva.aSid <> © THEN 

188 8925 aste_p := Ammv$ast_p4 [fde_p%.asti]; 

188 8826 IF mmc$debug AND ((fde_pA.asti <> ste _pr.asti) OR (aste_p%.sfid <> stxe_pA.sfid)) THEN 

1bDO°O 8327 mtpSerror_ stop (’MM - bad tables in CONVERT _PVA’),; 

1FO 8928 IFEND; 

1F4 8929 ELSE 

1F4 8930 #PURGE BUFFER (osc$purge_all_page_seg map, null_pva); { only job mode segment map purge is required} 
1FE 8931 force to_global := (fde_pA.queue_ status = gfc$qs_global_shared) OR [(fde_pA.attach_ count > 1); 
21E 8932 

21E 8933 mmp$get_verify_asti_in_fde (fde_p, stxe_pA.sfid, cst_p’.ijl_ordinal, asti); 

27E 89334 

27E 8935 IF (asti = 0) THEN 

286 8936 initialize _new_ast_entry (fde_p, segnum, ste_p, stxe_p, cst_p, force_to_giobal, asid, aste_p); 
3EC 8937 ELSE 

3EC 8938 mmp$asid (asti, asid); 

3EC 8939 ste_pA.ste.asid :*: asid; 

3EC 8940 ste pA.asti := asti; 

3EC 8941 

3EC 8942 { Determine which queue (JWS or Shared) this file should be in by looking at FORCE TO GLOBAL but 

3EC 8943 { with one important exception. If there are currently pages in memory and the current queue is not JWS, 
3EC 8944 { then the file was recently global and there are still pages in memory--maybe in the global queue, maybe 
SEC 8945 { in the available queue. In this case we must leave the pages in the global queue, or we may end up with 
SEC 8946 { modified pages in both the jws and global queues-this is a@ problem when it is time to write modified pages. 
3EC 8947 { If the file belongs in a JWS queue but has pages in memory it’s queue must not be changed. 

3EC 8948 { Also, if it is currently in the JWS queue, the ijl_ordinal must be reset because it may point 

3EC 8949 { to an old ijl. 

SEC 8S50 

3EC 8951 aste_p := Ammv$ast_p4 [astil]; 

SEC 8952 IF NOT force_to global THEN 

486 8953 IF (aste_pA.pages_in_memory = 0) OR (aste_pA.queue_id = mmc$pq_job_working_set) THEN 

49A 8954 aste p%.queue_id := mmc$pq_job_working_ set; 

443A 8955 aste_pA.ijli_ordinal :: cst_pA.ijl_ordinatl; 

4AE 8956 IFEND; 

4B2 89357 ELSEIF aste pA.queue_ id > mmc$pq_shared_last THEN 

4BE 8958 

4BE 8958S { The file belongs in the shared queue. Make sure the AST entry is correct. 

4BE 8&9360 

4BE 8961 aste_ pA.ijl_ordinal := jmv$system_ijl_ordinal,; 

4BE 8962 aste_ p%.queuve_id := mmp$determine_shared_queue_id (fde_p, ste_p); 

526 8963 IFEND; {not force_to_global} 

526 8964 

$26 8965 IFEND; f{fasti = 0} 

526 8966 Sva.asid := asid; 

S2E 8967 IFEND; fasid <> 0} 

52E 8968 

52E 8s68 IF mmc$debug AND ((aste_p.ijl_ordinal «> cst_p4.ijl_ordinal) AND 

556 8970 (aste_pr.iji_ordinal <> jmv$system_ijl_ordinal)) THEN 

556 8971 mtp$error_ stop (‘MM - Bad IJLO in CONVERT_PVA‘); 

576 8972 IFEND; 

576 89873 


576 8374 xSV@ :: sva; 
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S76 8375 
576 8976 PROCEND mmp$convert_pva; 
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MMPSVERIFY_PVA - Test job mode PVA to see if its valid 


o ss79 { 
© 8gs80 { Purpose: 
o 8981 { This routine verifies a PVA relative to the CURRENT USER TASK 
o 8982 f{ and returns an error code if its not valid. 
o sass3 { 
o 89384 
o 8985 PROCEDURE [XDOCL] mmp$verify_pva 
© 8986 { p: Acell; 
o 8987 segment access: mmt$segment_access_ type; 
o 8988 VAR status: syt$monitor_ status) ; 
© 83989 
ce) 8990 VAR 
o 8991 cst_p: Aost$cpu_state table, 
© 8992 ring: © .. 15, 
o 89383 Pva_p: Aost$pva, 
o 8994 ste_p: Ammt$segment_descriptor, 
Oo 89gs5 stxe_p: Ammt$segment_descriptor_extended, 
Oo 8996 segnum: ost$segment ; 
o #83897 
o 8998 status.normal := TRUE; 
4 8999 mtp$cst_p (cst_p); 
1E 9000 
1E 9001 pva_p := p; 
1E $9002 ring := pva_pA.ring; 
1E 9003 
1E 9004 IF (ring = 0) OR (pva_pA.offset < 0) THEN 
4E 9005 mtp$set_status_abnormal (‘’MM’, mme$invalid_pva, status); 
4E 9006 RETURN; 
62 9007 IFEND; 
62 9008 
62 9003 IF ring < cst_pA.xcb_pA.xp.p_register .pva.ring THEN 
76 9010 ring := cst_pA.xcb pA.xp.p_register.pva.ring; 
7A 9011 IFEND ; 
7A 9012 
7A 9013 segnum := pva_pA.seg; 
7A $014 ste_p := mmp$get_sdt_entry_p (cst_pA.xcb_p, segnum) ; 
7A 9015 stxe_p : = mmp$get_sdtx_entry_p (cst_pA.xcb_p, segnum) ; 
7A 9016 
TA 9017 
7A 9018 IF (segnum > cst_pA.xcb_pA.xp.segment_table_length) OR (ste_pA.ste.vi = osc$vl_invalid_entry) THEN 
EA $019 mtp$set_status_abnormal (’MM’, mme$Sinvalid_pva, status); 
FE 93020 ELSEIF mtv$sys_core_init_complete THEN 
104 9021 IF (segment_access = mmc$sat_read) AND ((ring > ste_pA.ste.r2) OR (ste _pA.ste.rp = osc$non_readable) ) 
126 99022 THEN 
126 $023 mtp$set_status_abnormal (‘MM’, mme$invalid_pva, status); 
134 9024 ELSEIF (segment_access = mmc$sat_write) AND ((ring > ste_pA.ste.r1) OR 
15C 9025 (ste pA.ste.wp = osc$non_writable)) THEN 
15C 9026 mtp$set_status_abnormal (’MM’, mme$invalid_ pva, status); 
170 93027 ELSEIF (segment_access = mmc$sat_read_or_write) AND (ring > ste _pA.ste.r2) THEN 
186 9028 mtp$set_status_abnormal (‘MM’, mme$invalid_pva, status); 
19A 930293 ELSEIF (stxe_pA.sfid.residence = gfc$tr_system_wait_recovery) THEN 
1AGB 90630 syv$refs_to_unrecevered seg :* syv$refs_ to_unrecovered seg + 1; 
1A6 9031 mtp$set_ status abnormal (‘MM’, mme$ref_to_unrecovered file, status); 
1C6 9032 IFEND; 
16 9033 IFEND; 
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1C6 


8035 


PROCEND mmp$ver ify _pva; 
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MMP$XTASK_PVA_TO_SVA - Convert job mode PVA to SVA 


ce] 9038 { This request ts used in monitor to translate a PVA relative to the 
° 9039 { CURRENTLY EXECUTING TASK to an SVA. No test is made to see if pages 
o $040 { are currently assigned to the PVA. 

ce) 9041 { 

° 9042 { MMPSXTASK_PVA_TO_ SVA (PVA, SVA, STATUS) 

o 9043 { 

° 9044 { PVA: (input) This parameter specifies the PVA to be converted. 
o 93045 { SVA: (output) This parameter specifies the SVA corresponding to 
° goa6 { PVA. 

o 9047 { STATUS: (output) This parameter specifies request status. 

o 9048 { The possibile error codes are: 

o g04as { mme$invalid_pva 

o 939050 { mme$ref_ to_unrecovered file 

o 9051 { 

° 9052 

.¢) 9053 

© 9054 PROCEDURE [XDCL] mmp$xtask_pva_to_sva 

Oo $g3055 ( p: Acell; 

Oo 9056 VAR Sva: ost$system_virtual_ address; 

© 93057 VAR status: syt$monitor_status) ; 

° 9058 

3° 9059 VAR 

o 9060 cst_p: Aost$cpu_state_tabie, 

o 93061 fde_p: gft$locked file desc_entry_ p, 

o 9062 ste_p: Ammt$segment_descriptor, 

o $063 stxe_p: Ammt$segment_descriptor_extended, 

o 393064 aste_p: Ammt$active segment _table_entry; 

° 9065 

Oo 9066 mmp$verify pva (Ap, mmc$sat_read_or_write, status); 

26 9067 IF status.normal THEN 

2E 9068 mtp$cst_p (cst_p); 

3E 93069 mmp$convert pva (p, cst_p, sva, fde_p, aste_p, ste_p, stxe_p); 
92 9070 IFEND; 

92 9071 

$2 9072 PROCEND mmp$xtask_pva_to_sva; 
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fe) 9075 

fe) BOTE [errr ett ttm te te et ere eee i a Na a i i ll BSN eS eee cee ey mie ee eee ae 

o 9077 {Name 

o 9078 { mmp$get_avail_page_frame 

© 9079 {Purpose: 

° soso { , This routine is called to find a free or available page frame. 

° 9081 { No assignment of the page frame is made by this procedure. 

© 93082 {Input: 

o 9083 { none 

© 9084 {Output 

© goss f{ pfti - Page Frame Table index of an availabie page frame. A value 

o 9086 { of zero indicates no page frame was available. 

© 3087 {Error Codes: 

o $088 { none 

¢] 9089 [re mt et te ee tt tt er ee ee we me 

fe) 9090 

° 9091 

oO 9082 PROCEDURE [XDCL, INLINE] mmp$get_avail_page_ frame 

4 9093 (VAR pfti: mmt$page_frame_index) ; 

4 9094 

4 9095 pfti :: mmv$gpql [mmc$pq_free].pqlie. Tink. bkw; 

4 9096 IF pfti = 0O THEN 

18 9087 IF (mmv$gpqi [mmc$pq_avail].pqlie.count <= mmv$min_avail_pages) AND 

32 9098 (mmv$gpqi [mmc$pq_free].pqie.count + mmv$gpqi [mmc$pq_avail].pqlie.count < 

32 9099 mmv$reassignable_page_frames.now) THEN 

32 9100 jsp$free_swapped_jobs_memory ( jmv$nul1_ijl_ordinal) ; 

4a 9101 pfti := mmv$gpqi [mmc$pq_free].pqie. link. bkw; 

54 9102 ELSE 

54 3103 pfti := mmv$gpqi [mmce$pq_avail].pqie. Tink. Dkw; 

$54 9104 IF pfti <> © THEN 

60 9105 mmp$deiete _ pt_entry (pfti, TRUE); 

76 9106 IFEND; 

76 $107 IFEND ; 

76 $108 IFEND; 

76 $109 

76 9110 PROCEND mmp$get_avail_page_frame; 
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$113 
$114 
$115 
9116 
9117 
9118 
$119 
9120 
9121 
9122 
$123 
9124 
9125 
$126 
$127 
9128 


{ This procedure moves a page frame from its current position 
{ in a page queue to the head of a new queue identified by 
{ the caller. 


PROCEDURE [XDCL] mmp$relink_page_frame 
( pfti: mmt$page_frame_index ; 
queue_id: mmt$page_frame_queue_id) ; 


VAR 
taskid: ost$global_task_id, 
ijle_p: Ajmt$initiated_job_list_entry, 
qcb_p: Ammt$page queue _list_entry, 
pfte_p: Ammt$page_ frame_tabie_entry; 


pfte_ p := AmmvS$pft_pA [pftil]; 


IF syv$perf_keypoints enabled.memory keypoints THEN 
#KEYPOINT (osk$performance, osk$m * pfti, ptk$page_assigned_pfti); 
#KEYPOINT (osk$performance, osk$m * $INTEGER (Queue_id), ptk$page_assigned_ queue) ; 
#KEYPOINT (osk$performance, osk$m * (pfte_p4.ijl_ordinal.block_mumber +* 
32 + pfte_pA.ijl_ordinal.block_index), ptk$page_assigned_ij1); 
IFENOD; 


IF pfte_p4.queuve_id < mmc$pq_job_base THEN 
IF pfte_pA.queue_ id <= mmc$pq_last_reassignablie THEN 
mmv$reassignable_ page _ frames.now := mmv$reassignable_page_frames.now - 1; 


ELSEIF (pfte_pA.queue_id = mmc$pq_avail_modified) AND NOT mmv$pt_pA [pfte pA.pti].m THEN 


mmv$reassignable page_frames.soon := mmv$reassignable_page_frames.soon - 1; 


IFENO; 

qcb_p := Ammv$gpqi [pfte_pA.queue_id] .pqle; 
ELSE 

imp$get_ijle_p (pfte_p%.ijl_ordinal, ijle_p); 

qcb_p := Aijle_ pA. job_page_ queue list [pfte_ pA. queue _ id]; 
IFEND; 
IF pfte_ pA. link. fwd = O THEN 

qcb_p%.1ink.bkw := pfte_pA. link. bkw; 
ELSE 

mmv$pft_ pA [pfte_p%.1ink.fwd].link.bDkw := pfte_ pA. link. Dkw; 
IFENOD; 


IF pfte_pA.1link.bkw = © THEN 
qcbD_p’%. 1link.fwd :: pfte pA. link. fwd; 
ELSE 
mmv$pft pA [pfte_p4. link. bkw].link.fwd := pfte pA. link. fwd; 
IFEND; 
qcb_p’.count := qcb_pA.count - 1; 


pfte pA. 1ink.Dkw := 0; 
IF (queue _id <= mmc$pq_last_reassignable) AND [(pfte_ pA.active_io_count >» ©) THEN 
IF mmc$debug AND (queue_id <> mmc$pq_free) THEN 
mtp$error stop (’MM - relink 234’); 
IFEND; 
mmv$reassignable page _frames.soon := mmv$reassignable_ page frames.soon + 1; 
pfte pA. link. fwd :: 0; 
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1AE 9169 ELSE 
1AE 9170 IF queue_id < mmc$pq_job_base THEN 
1BA 9171 IF (queue_id <= mme$pq_last_reassignable) THEN 
1BE $172 mmv$reassignable_page_frames.now := mmv$reassignable page frames.now + 1; 
1BE 9173 IF mmc$debug AND ((queue_id = mmc$pq_avail) AND ((mmv$pt_pA [pfte_pA.pti].m) OR 
1EE 9174 (mmv$pt_pA [pfte_pA.pti].v))) THEN 
1EE 9175 mtp$error stop (‘MM - relink - trapped modified/valid page in avail’); 
210 9176 IFEND; 
210 $177 
2190 9178 { Check if scheduler is waiting for memory and ready scheduler if necessary. 
210 $179 
210 9180 imp$check_scheduler_memory wait ; 
244 #9181 
244 9182 ELSEIF (queue_id = mmc$pq_avail_modified) AND NOT mmv$pt_pA@ [pfte_pA.pti].m THEN 
262 9183 - IF mmc$debug AND (pfte_pr.active_io_count = 0) THEN 
264 9184 mtp$error stop (‘MM - no 10’); 
288 9185 IFEND; 
288 $186 mmv$reassignable page _frames.soon := mmv$reassignable_ page _frames.soon + 1; 
292 93187 IFEND; 
292 9188 qcb_p := Ammv$gpq1 [queue_id].pqie; 
246 9189 ELSE 
2A6 9190 jmp$get_ijle_p (pfte_pA.ijl_ordinal, ijle_p); 
2A6 393191 qcb_p := Aijle_pA.job_page _queue_list [queue id]; 
2DE 9192 IFEND; 
2D0E 9193 IF qcb_p4.1ink.fwd = O THEN 
2E6 9194 qcb_p4. Tink. bkw := pfti; 
2F2 9195 ELSE 
2F2 9196 mmv$pft_ ps [qceb_p%.iink.fwd].link.bkw : = pfti; 
310 9187 IFEND; 
310 9188 pfte pA. 1link.fwd := gcb_ pA. link. fwd; 
310 93199 qcb_pA.1ink.fwd := pfti; 
310 9200 qcb_pA.count := qeb_ pA.count + 1; 
324 9201 IFEND; 
324A $202 
328 9203 pfte_ pA.queue id := queue_id; 
32h 93204 IF queue_id = mmc$pq_free THEN 
3365 $205 pfte_ pA.sva.asid :: 0; { DONT clear offset - required by mmp$change_asid} 
334 9206 
334 3207 {! delete until DM deletes active I10 count - this code causes a timing problem swapping 
334 9208 {! out a job that has recently deleted a segment that had pages being written to disk. 
334 $3209 { IF pfte_pA.active_io_count <> © THEN 
334 9210 { jmp$get_ijle_p (pfte_p.ijl_ordinal, ijle_p); 
334 9211 { jmv$aji_p% [ijle_p%.ajl_ordinal].active_io_page_count := jmv$aji_p4A [ijle_p’.ajl_ordinal]. 
334 $212 { active_io_ page_count - pfte_pA.active_io_count; 
334 9213 { IFEND; 
334 93214 
33A 9215 IFEND; 
334 9216 
334 9217 IF (mmv$memory wait _queue.head <> 0) THEN 
342 9218 IF (queuve_id <= mmc$pq_last_reassignable) AND (pfte_pA.active_io_ count = 0) THEN 
352 93219 tmp$dequeue task (mmv$memory_ wait queue, taskid) ; 
36E 9220 IFEND; 
S6E 9221 IFEND; 
36E 9222 
36E $223 mmp$check queues; 
37E $224 
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37E $225 PROCEND mmp$relink_page_ frame; 


9241 imp$check_scheduler_memory wait ; 


3° $227 

Oo $228 PROCEDURE [INLINE] mmp$1link_page_frame_to_ queue [(pfti: mmt$page_frame_index; 
o 9229 pfte_p: Ammt$page_frame_table_entry) ; 

° 8230 

o 9231 pfte pA. link. fwd := mmv$S$gpql [pfte_p%.queue_id].pqie. link. fwd; 

Oo $232 IF mmv$gpqi [pfte_p%.queue_id]).pqie.link.fwd = © THEN 

© $233 mmv$gpqi [pfte_p%.queve_id].pqie.1link.bkw := pfti; 

3° $234 ELSE 

oO $235 mmv$pft pAlmmv$gpql [pfte_pA.queue_id].pqie.link.fwd].link.bkw := pfti; 

3° $236 IFEND; 

© $237 mmv$gpqi [pfte_pA.queue_id].pqie.link.fwd : = pfti; 

Oo $238 mmv$gpqi [pfte_p4A.queue_id].pqie.count := mmv$gpq!l [pfte_pA.queue_id].pqie.count + 
Oo 93239 mmv$reassignable page frames.soon := mmv$reassignable_ page _frames.soon - 1; 
o 9240 mmv$reassignable_page_frames.now := mmv$reassignable_page_frames.now + 1; 

° 

© 

° 


9243 PROCEND mmp$link_page_frame_to_queue; 


1; 
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14E 9301 mtp$error_stop (‘MM - no memory for ciaim pages’); 
16E $302 IFEND; 
16E 93303 source queue_id : = mmc$pq_ avail; 
16E $304 pfti := mmv$gpqi [mmc$pq_avail].pqle. link. bkw; 
176 gs305 IFEND; 
176 9306 First _pfti <= pfti; 
176 9307 WHILE (count > ©) AND (pfti <> 0) DO 
180 9308 IF syv$perf_keypoints_enabled.memory_keypoints THEN 
188 9309 #KEYPOINT (osk$performance, osk$m * pfti, ptk$pfti_for _swapin); 
190 9310 IFEND ; 
1990 9311 pfte_p := AmmvS$pft_ pA [pFftil]; 
190 9312 IF source queue_id = mmc$pq_avail THEN 
1AE 9313 mmp$delete_ pt_entry (pfti, TRUE); 
1C2 9314 pfte pA.sva := null_sva; 
1CA 9315 IFEND ; 
1CA $316 pfte pArA.ijl_ordinal := ijlordinatl; 
1CA 9317 pfte pA.aste_p := aste_p; 
1cA $318 pfte pA.queue_ id := queuve_id; 
1CA 9318 count := count - 1; 
1CA 9320 pfti := pfte_pA.1ink.bkw; 
1CAa $321 WHILEND ; 
1ECc 9322 
1—EC $323 mmv$gpqi [source queue_id].pqie.count := mmv$gpqi [source queue _id].pqie.count - queue count + count; 
1EC $324 IF job_page queue _ list [queue_id].link.bkw = © THEN 
2190 $325 job_page_gqueve_list [queve_id]).link.bkw := first pfti; 
218 9326 ELSE 
218 9327 mmv$pFft_pA [job_page queue_list [queue_id].link.fwd].link.Dkw := first _pfti; 
218 9328 mmv$pft_p4 [first _pfti].link.fwd := job _page_queue_list [queue_id]. link. fwd; 
250 $328 IFEND; 
250 9330 IF pfti = © THEN 
254 $331 job_page_queue_ list [queuve_id].link.fwd : = mmv$gpqi [source _queue_id].pqie. link. fwd; 
254 9332 mmv$gpqi [source _queue_id].pqie. link. bkw z “ 
254 $333 mmv$gpqil [source queue_id].pqle.link.fwd := 0; 
278 $334 ELSE 
278 $335 job_page_ queve list [queuve_id].link.fwd := mmv$pft_p% [pfti]. link. fwd; 
278 9336 mmv$pft_ pA [mmvSpft_pA [pfti]. link. fwd]. link.Dkw := 0; 
278 9337 mmv$gpqi [source_queve_id].pqie.link.bkw := pfti; 
278 9338 mmv$pFft pA [pfti]. link. fwd := 0; 
2c4 $339 IFEND; 
2c4 $340 UNTIL count = O; 
2C8 9341 FOREND /claim_pages/; 
2cc 9342 
2CC $343 mmp$check_queues; 
20C $344 
20C 9345 PROCEND mmp$c laim_pages_for_swapin; 
° $346 
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oO 9245 
° 8246 [rrr ert rt ee rm mt te ee mw ee ee ee Soessce eae se. Ses See Sess Ses Sos er ee er eve eis 
° 9247 { This procedure is used by the job swapper to cliaim a large number of pages on swapin. 
° 9248 [err rr ttt ert tte tt mew et er ree en rte eee mee eee RSS SS re: BUR Sie) Same Ceti See ee Se ee Sree S18 Ske ee See eee es eee Ss eS eee . 
o $249 
te] 9250 
Oo $251 PROCEDURE [XDCL] mmp$claim_pages_for_swapin 
3° $252 ( swapped _job_entry: jmt$swapped job_entry; 
Oo $253 aste_p: Ammt$active_segment_table_entry; 
Oo 9§254 ijl_ordinat: jmt$ijl_ordinal; 
o $255 VAR job_page_queue_list: mmt$job_page_queue_list); 
° 8256 
° $9257 VAR 
oO $258 pfti: mmtS$page_ frame_index, 
° gs2558 pfte_p: Ammt$page_ frame_table_entry, 
Oo 9260 ijl_p: AgmtS$initiated_job_list_entry, 
o 9261 source queue_id: mmt$page_ frame_queue_ id, 
ce) $262 queue_id: mmt$page_frame_ queue_id, 
¢) 9263 count: integer, 
° 9264 queue_ count: integer, 
Oo $265 First pfti: mmt$page_frame_index; 
.) 9266 
° $267 count := 0; 
4 9268 jmp$get_ijle_p (ijl_ordinal, ijl_p); 
4 92693 FOR queue_id := LOWERVALUE (mmt$job_page queve_ index) TO UPPERVALUE (mmt$ job_page_queue_ index) DO 
3C 9§270 count := swapped_job_entry. job_page_queue_count [queue_id] + count; 
3C 93271 IF (queue_id = mmc$pq_job_fixed) AND NOT (jmc$dsw_job_recovery IN ijl_p4.delayed_ swapin_work) THEN 
68 9272 count := count - ijl_p%.jobp_ fixed contiguous pages; 
6E 9273 IFEND; 
6E 9274 FOREND ; 
72 9275 
72 S276 WHILE (mmv$gpqi [mmc$pq_free] .pqie.count < count) AND 
98 9277 (mmv$gpqi [mmc$pq_free] .pqie.count + mmv$gpqi [mmc$pq_avail].pqle.count - count <= 
98 3278 mmv$min_avail_pages) AND (mmv$gpq1 [mmc$pq_free].pqie.count + mmv$gpqi [mmc$pq_avail].pqie.count < 
$8 93279 mmv$reassignable_page_frames.now) DO 
98 9280 isp$free_ swapped jobs memory (jmv$null_ijl_ordinal) ; 
BO $281 WHILEND; 
D4 9282 
D4 9283 source queue_id := mmc$pq_ free; 
D4 $2884 
D4 9285 /claim_pages/ 
D4 9286 FOR queue _id := LOWERVALUE (mmt$job_page_queue_index) TO UPPERVALUE (mmt$ job _page_ queue _ index) DO 
E& $287 count := swapped_job_entry. job_page_queve_ count [queue_id] ; 
E& 9288 IF count = O THEN 
F8& 9289 CYCLE /cliaim_pages/; 
FC 9290 IFENO; 
FC $291 job_page_queue_list [queue_id].count := count; 
FC $292 IF (queue_id = mmc$pq_job_fixed) AND NOT (jmc$dsw_job_recovery IN ijl_p4.delayed_swapin_work) THEN 
124 $293 counmt := count - ijli_pA.job_fixed contiguous pages; 
130 9294 IFEND; 
130 $295 mmv$reassignable_page frames.now := mmv$reassignable page frames.now - count; 
130 $296 REPEAT 
13C 9237 queue count := count; 
13C $298 pfti := mmv$gpqli [source _queue_id].pqie. link. Dkw; 
13C¢ 923993 IF pfti = O THEN 
14A 9300 IF source _queuve_id = mmc$pq_ avail THEN 
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G 9349 
© $350 {---+----- al ada Nala al a alla eae Seen em ee ee aS SoS ane eine See BS) SSS e ees mke eyes a) Suey =e ee ies tem heme Eee are eas 
© 933571 { 
° 9352 { The purpose of this procedure is to efficiently relink ALL the pages in a jobs page queue list 
© 9353 { to the free queue. 
o 9354 { . 
© 9355 [eet teeter eee ne on ee Se ee Se ale SS eS Se See ee Se See Se we eS 8 Ree ee Oe ee So ls a ia ae oe SS ele Bre 
6 9356 
Oo $357 PROCEDURE [XDCL] mmp$free_memory_in_job_queues 
o 93358 (VAR job_page queue list: mmt$job_page_queue_ list; 
o 9359 increment mow: boolean; 
° 9360 decrement_soon: boolean; 
o 9361 job_termination: boolean); 
° 9362 
oO 9363 VAR 
© 9364 asid: ost$asid, : 
Oo 9365 aste_p: Ammt$active segment _table_entry, 
° 9366 count: integer, 
3° 9367 found: boolean, 
Oo 9368 ijl_p: Ajmt$initiated_job_list_entry, 
° gs369 index: integer, 
re) 9370 ipti: integer, 
o 93371 last_contiguous_ pfti: mmt$page_frame_index, 
ce] $372 hcount: 1 .. 32, 
© 93373 next _pfti: mmt$page_frame_index, 
oO 9374 original _bkw_link: mmt$page_frame_index, 
Oo 9375 pfte_ p: Ammt$page frame_table_entry, 
ce) 9376 pfti: mmt$page_frame_index, 
Oo $377 queue_id: mmt$ job_page_queue_index, 
o $378 taskid: ost$global_task_id, 
o $378 total pages freed: integer ; 
°o 9380 
ce) 9381 total _pages freed := 0; 
& $382 
4 9383 FOR queue_id :* UPPERVALUE (mmt$ job_page_ queue_index) DOWNTO LOWERVALUE (mmt$ job page _queue_index) DO 
16 9384 pfti :: job _page_queue_list [queue _id].1ink.bkw; 
16 9385 original _bkw_link :: job page _queue_list [queue_id]. link. bkw; 
16 9386 
16 9387 { If we are freeing the job-fixed queue, we must verify that there are not any 
16 9388 { contiguous pages assigned. If there are contiguous pages assigned, it is 
16 9389 { necessary to determine where in the queue the non-contiguous pages begin. 
16 9390 { The contiguous pages are ALWAYS at the very beginning of the job-fixed 
16 $391 { page queue. Contiguous pages are not freed. 
16 9382 { NOTE: If pages have ASID =: 6, then froames are being freed after aborted swapin. 
16 9393 
16 93394 IF pfti <> © THEN 
30 $395 IF (queue _id = mmc$pq_job_fixed) THEN 
38 $396 imp$get_ijle_p (mmv$pft_p% [pfti].ijl_ordinal, iji_p); 
38 9397 IF (ijl_p%.job_fixed contiguous pages <> 0) AND NOT job_termination AND 
98 9398 NOT (jmc$dsw_job_recovery IN ijl_p4A.delayed_swapin_work) THEN 
98 9399 FOR index :* 1 TO ijl_p’%.job_fixed_ contiguous pages 00 
AO 9400 last_contiguous pfti := pfti; 
Ao $401 #HASH_ SVA (mmvSpft_pA [pftil.sva, ipti, hncount, found); 
cO 9402 IF found THEN 
D4 9403 mmp$delete pt_entry (pfti, TRUE); 
E8& 9404 IFENO; 
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ES 9405 pfti := mmv$pft_p [pfti] . link. bkw; 
E& 9406 FOREND; 
1OE 9407 IFEND ; 
10E 9408 IFENO; 
10E $409 
1OE 94109 WHILE pfti <> o DO 
116 9411 pfte_p := AmmvSpft_p4 [pFftil; 
116 $412 asid :: pfte_ pA.sva.asid; 
116 9413 next pfti := pfte pA. Tink. Dkw; 
116 9414 IF syv$perf_keypoints _enabled.memory keypoints THEN 
1406 9415 #KEYPOINT (osk$performance, osk$m * pfti, ptk$page_assigned_pfti); 
148 9416 #KEYPOINT (osk$performance, osk$m * SINTEGER (mmc$pq_free), ptk$page_assigned_ queue) ; 
14¢€ 9417 IFEND; 
14C 9418 
14C¢€ 94193 IF asid <> © THEN 
150 9420 IF pfte_ pA.active_io_count = O THEN 
158 9421 mmp$delete pt_entry (pfti, TRUE); 
*WARN# 9422 mmp$aste pointer _from_pfti (pfti, aste_p); 
26C 9423 IF aste_ pA.pages_in_memory = © THEN 
278 9424 IF aste_pA.sfid.residence = gfc$tr_job THEN 
282 $425 mmp$free_asid [(asid, aste_p); 
296 9426 IFEND; 
296 9427 IFEND ; 
296 $428 pfte_ pA.sva :: null_sva; 
2836 9429 pfte _ pA.queue_ id := mmc$pq_free; 
2A8 9430 ELSE 
2A8 9431 : 
2A8 9432 { I0o is still active on a local file or a Shared file. 
2A8 9433 
2A8 9434 mmv$pt_pA [pfte_ pA.pti].v := FALSE; 
248 9435 IF (pfte_ pA.aste_ pA.sfid.residence = gfc$tr_job) AND (job_termination) THEN 
202 9436 mmp$delete_ pt_entry (pfti, TRUE); 
2E8 $437 mmp$relink_page_frame (pfti, mmc$pq_free) ; 
3006 9438 ELSE 
300 94393 mmp$relink page frame (pfti, mmc$pq_avail_modi fied) ; 
316 9440 IFEND; 
316 9441 IF decrement _soon THEN 
31E 9442 mmv$reassignable page _frames.soon := mmv$reassignabie page frames.soon - 1; 
328 9443 IFEND; 
328 9444 


328 9445 { If NOW was already incremented, OC to $2, then decrement NOW since I0 is active. 
328 9446 { NOW will be incremented when I0 completes. This applies to local files only. 
328 9447 { NOW count is updated for shared file when movement from JWS to shared queues takes place. 


328 9448 

328 9449 IF (NOT increment_now) AND (pfte_p4.aste_pA.sfid.residence = gfc$tr_job) THEN 
33C 9450 mmv$reassignable_ page _frames.now := mmv$reassignable_page_ frames.now - 1; 
346 9451 IFEND; 

348 9452 IFEND; 

34C §453 ELSE 

34C 9454 pfte pA.queue_id := mmc$pq_free; 

352 9455 IFEND; 

352 9456 pfti :5 next _pfti; 

352 94587 WHILEND; 

35C $458 


35C $8459 { The contiguous pages assigned to the job-fixed segment must not be counted 
35C 9460 { when freeing pages in the queues. 
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35C 9461 

35C 9462 IF (queue_id = mmc$pq_job_fixed) AND (ij1_p4.job_fixed_ contiguous pages <> ©) AND 

386 9463 NOT (jmcS$dsw_job_recovery IN iji_p4.delayed_ swapin_work) AND NOT job_termination THEN 
386 9464 count : = job _page_queue_ list [queue id].count - ijl pA. job_fixed_ contiguous pages; 

386 9465 job_page queue_list [queue_id].1link.bkw := mmv$pft_pA [last_contiguous pfti].link.bkw; 
3C8 S466 ELSE 

3C8&8 39467 count := job_page_queue_list [queue_id].count; 

3DE 9468 IFEND ; 

3D0E 9469 IF count > © THEN 

3E2 9470 IF mmv$gpqi [mmc$pq_free].pqle.lTink.bBkw = O THEN 

3EE $471 mmv$gpqi [mmc$pq_free}].pqie.link.bkw :: job _page_queue_list [queue_id]. link. bkw; 

406 9472 ELSE 

406 9473 mmv$pft_ pA [mmv$gpql [mmc$pq_free]) .pqie. link. fwd].link.bkw := job _ page _queue_list [queue_id). 
406 9474 Tink. Dkw; 

406 9475 mmv$pft_pA [job_page_ queue _ list [queue_id].link.bkw].link.fwd := mmv$gpqi [mmc$pq_ free]. 
44C S476 pqle.link. fwd; 

44C 9477 IFEND; 

44C 9478 mmv$gpqi [mmc$pq_free].pqie.link. fwd := job_page_queue_list [queue_id]. link. fwd; 

44C 9479 IF (queuve_id = mmc$pq_job_fixed) AND (ijl_p’.job_fixed_ contiguous _ pages <> 0) AND 

448A 93480 NOT (jmc$dsw_job_recovery IN ijl_p4.delayed_swapin_work) AND NOT job_termination THEN 
48h 3481 job_page_queue_ list [queve_id].1ink.fwd := last_contiguous pfti; 

48sA 9482 job_page_ queue _ list [queue_id].1ink.bkw : = original _bkw_link; 

48h 9483 job_page_queve list [queve_id].count := ijl_p4.job_fixed_ contiguous pages; 

4A2 9484 ELSE 

442 9485 job_page_queue_list [queue_id].link.fwd := 0; 

4A2 9486 job _page_queve_list [queue_id]. link. bkw => 0; 

4A2 9487 job_page queue_list [queue_id].count := 0; 

4C2 9488 IFEND; 

4C2 94893 mmv$gpqi [mmc$pq_free].pqie.count := mmv$gpqi [mmc$pq_free] .pqie.count + count; 

4c2 $4830 IF increment_now THEN 

4D4 9491 mmv$reassignable page _frames.now := mmv$reassignablie page frames.now + count; 

4DE 9432 IFEND; 

4DE 9493 IF decrement soon THEN 

4E6 9494 mmv$reassignable_ page _frames.soon := mmv$reassignable_page_frames.soon - count; 

4FO $495 IFEND; 

4FO 9496 total_pages_ freed := total_pages freed + count; 

4F2 $497 IFEND; 

4FG 9498 IFEND; 

4F6& 9495 FOREND; 

4FC $500 

4FC 9501 IF increment now THEN 


504 9503 { Check if scheduler is waiting for memory and ready scheduler if necessary; this check is 
504 9504 { necessary anytime page frames.now is incremented, but don’t do it inside a loop. 


504 3506 jmp$check_ scheduler memory wait ; 

538 93507 

538 9508 IFEND; 

538 $509 

538 9510 WHILE (mmv$memory_wait_queue.head <> 0) AND (total_pages_freed > ©) DO 
548 9511 total_pages_ freed := total_pages_freed - 1; 

548 9512 tmp$dequeue task (mmv$memory_ wait _queue, taskid) ; 

S66 9513 WHILEND; 

572 9514 

572 9515 mmpScheck_queues; 
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582 9517 PROCEND mmp$free memory _in_job_queues; 


SOURCE LIST OF mmm$page_ fault_pr 


PF_PROC_TABLES_NOT_INITIALIZED 


Sva.aSid :=: 
Sva.offset :=: 
Sva.offset 


{The block is det 
{large block at t 
9563 


{The following loop 
{The loop sets <NEXT_RMA> 


{Subsequent passes thru the toop 


ocessor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


ste_pA.ste.asid; 


xcb_pA.xp.untranslatabile pointer .offset ; 


(sva.offset DIV osv$page_size) * osv$page_size; 


is somewhat obscure but is structured for best performance during deadstart. 
<STOP_RMA> to point to the next block of free pages that can be assigned. 
The FIRST time thru the loop, it locates the 
(Deadstart loads most of the OS at the beginning of memory. ) 


locate the next block following the biock that was just assigned. 


ermined by scanning the page table. 
he end of memory. 


© $9520 

© 9821 [tere eee Seeisin y= SORES Se Sretede esses a Ma a a aN a aE Ra EN BIS Rhee eee S Sie yee 
© 9522 {Name 

© $523 { pf_proc_tables_ not_initialized 

© 9524 {Purpose: 

i?) 9525 { This routine is called to process page faults which occur before 
© 9526 { the POL, PFT, and AST have been initialized. The routine assigns 
° $527 { an available page frame and makes the page table entry for the 

o 98528 { page. 

°o 8529 [-- rw eee tm ew tee eee PE SC Rea es ee ee Se eeiciei le ae) eee RNS Moe es Se ee SOR eRe Saree. SS: SSS els =e Sees SO RS SS SB ee, See 
° 9530 

o $531 

oO $532 PROCEDURE pf _ proc_tables_ not_initialized 

o 9533 { xcb_ p: Aost$execution_control_ block) ; 

o $534 

° 9535 VAR 

Oo 9536 Sva: ost$system_virtual_ address, 

° $537 ste_p: Ammt$segment_descriptor, 

o 9538 static _mext_rma: [STATIC] integer := 7FFFFFFF(IE), 

o $539 static _stop_rma: [STATIC] integer = 7F7FFFFEFF( IG), 

° 9540 next rma: integer, 

Oo 9541 stop_rma: integer, 

Oo $542 pte: ost$page_ table entry, 

5° 9543 count: 1 32, 

} 9544 found: hoolean, 

oO 9845 full scan _has_been_done: boolean, 

oO 93546 pt _ length: integer, 

oO 9547 pt_p: Aost$page_tabie, 

.°) 9548 pti: integer; 

© 9549 

ce) 9550 

o 9851 . Ptlp := mmvS$pt_p; 

4 9552 pt_length := mmv$pt_length; 

4 9553 ste_p := mmp$get_sdt_entry p (xcb_p, xcb_p4.xp.untranslatable_pointer.seg) ; 
4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


gs64 { (The loop has been optimized by looking at the object code generated and adjusting 
9565 f{ the source to get good object code). 
$3566 
9568 IF static next rma = static _stop rma THEN 
76 $569 
76 9570 { Locate the starting point of the next block. 
76 9571 
76 $572 next rma := static _mext rma; 
76 9573 stop rma := static stop rma; 
76 93574 IF next rma = 7FFFFFFF( 16) THEN 
7E 3575 next rma = osv$180_memory limits. lower DIV 512; 
7E 9576 stop_rma := (osv$180_memory_limits.deadstart_upper DIV 512); 
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7E 9577 pti := pt_ length; 

TE 9578 REPEAT 

94 9579 pti :5 pti - 1; 

94 9580 pte := pt_pA [ptil; 

94 9581 IF pte.v AND (pte.rma > nmext_rma) AND (pte.rma < stop rma} THEN 
B2 9582 next rma := pte.rma; 

B6 $583 IFEND; 

B6 9584 UNTIL pti = 0; 

BA 9585 next rma :=2 next rma + osv$page_ size DIV 512; 

cé 9586 ELSE 

C8 9587 full _scan_has_been_done := FALSE; 

c8 9588 REPEAT 

cE 9589 next rma := nmext_rma + (osv$page_size DIV $12); 

CE 9590 IF next rma >= (osv$180_ memory_limits.deadstart_upper DIV 512) THEN 
E4 $591 IF full _scan_has_been_done THEN 

E& $592 mtp$error stop (’MM - not enough mem to deadstart’); 
108 $533 IFENOD; 

108 9594 next rma := osv$180_memory_limits.lower DIV 512; 

108 9595 full _scan_has_been_done := TRUE; 

114 9596 IFEND ; 

114 9597 pti := pt_length - 1; 

114 9598 pte := pt_pA [ptil; 

114 $599 WHILE (pti > ©) AND (NOT pte.v OR (pte.rma <> next _rma)) DO 
134 9600 pti := pti - 1; 

134 $3601 pte := pt_pA [ptil; 

134 8602 WHILEND; 

152 3603 UNTIL NOT pte.v OR (pte.rma <> next_rma) ; 

162 9604 IFEND; 

162 $605 

162 s6o6 { Locate the end of the block just selected. 

162 9607 

162 9608 stop_rma := (osv$180_memory_ limits.deadstart_upper DIV 512); 
162 s609 pti := pt length; 

162 9610 REPEAT 

16C 9611 pti := pti - 1; 

16C 9612 pte := pt pA [ptil; 

16C 93613 IF pte.v AND (pte.rma > next rma) AND (pte.rma < stop rma) THEN 
138A 9614 stop_rma :=: pte.rma; , 

18E 9615 IFEND ; 

18E 9616 UNTIL pti = 0; 

192 9617 static nmext rma := next rma; 

192 $618 Static_stop_rma := stop rma; 

19E $619 IFEND; 

19E §620 

19E 9622 

19E 93623 #HASH_SVA (Sva, pti, count, found); 

TAO 9624 IF found THEN 

1B4 9625 mtp$error_ stop {’MM - PTE exists’); 

102 S626 IFEND; 

102 9627 pti := pti - count + 1; 

1D2 $628 IF pti < © THEN 

1DE $629 pti := pti + mmv$pt_ length; 

1E4 9630 IFEND; 

1E4 9631 count := 1; 

1E4 9632 WHILE (mmv$pt_pA [pti] .pageid.asid <> ©) AND (count < 33) DO 
202 93633°* count :: count + 1; 
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202 9634 pti = pti + 1; 
202 $635 IF pti = mmv$pt_length THEN 
20E S636 pti := 0; 
212 $637 IFEND; 
212 9638 WHILEND ; 
22E 9633 
22E 9640 IF count = 33 THEN 
236 9641 mtp$error_stop (’MM - PT full in deadstart’); 
256 93642 IFEND ; 
256 9643 
256 9644 pte.v = FALSE; 
256 9645 pte.c :: TRUE; 
256 9646 pte.u = TRUE; 
256 93647 pte.m := FALSE; 
256 9648 pte.pageid.asid := Sva.asid; 
256 9649 pte.pageid.pagenum := sva.offset DIV 512; 
256 9650 pte.rma := static_nmext rma; 
256 9651 static _mext rma := static_next_ rma + (osv$page_size DIV 512); 
256 9652 mmv$pt_p’ [pti] > pte; 
256 9653 mmp$preset_real_memory (sva, pmcSinitialize_to zero) ; 
2BE 93654 mmv$pt_ pA [pti].v := TRUE; 
2BE 9s655 
2BE 9656 PROCEND pf_proc_tables_ not_initialized; 
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eo0o0og0odg0dcodoaoodcoo0c0co00o0co0c0o C0 00000 


$7909 
$710 
S711 
$712 
9713 


{ 
{ 
{ 
{ 


rm re 


Purpose: 
This procedure is called when a WRITE_PAGE TO DISK request discovers escaped 
allocation. This procedure sends a flag to a task to assign the backing storage. 


PROCEDURE mmp$send_escaped_alioc_flag 
( Fde_p: gft$locked_file desc _entry_p; 
pfte_p: Ammt$page_frame_table_entry); 


VAR 
ijl_ordinail: jmt$ijl_ordinal, 
ijle_p: Ajmt$initiated_job_list_entry, 
old_assign_active: integer, 
pfte ijle_p: Ajmt$initiated  job_list_entry, 
sfid: gft$system_file_identifier, 
Status: syt$monitor_status, 
ste_p: Ammt$segment_descriptor, 
stxe_p: Ammt$segment_descriptor_ extended, 
xcb p: Aost$execution_ control block; 


Try to get a pointer the the XCB of the last task using the segment. The GTID will 
be invalid if the task has terminated. 


tmp$test_get_xcb_p (fde_pA.global_task_id, xcb_p, ijle_p); 
imp$get_ijle_p (pfte_p4.ijl_ordinal, pfte_ijle_p); 
gfpSmtr_get_sfid_from_fde_p (fde_p, sfid, ijl_ordina]) ; 


If the GTID is still valid, notify the task to assign space. If the segment is still valid AND the 
same SFID, use the SDTX.ASSIGN_ ACTIVE mechanism to notify the task to allocate space. If the segment 
is NOT the same SFIO, use field in the XCB to pass the SFID. 


IF (xcb_p <> NIL) AND (ijle_p = pfte_ijle_p) THEN 


ste_p := mmp$get_sdt_entry_p (xcb_p, fde_pA. last _segment_ number ) ; 
stxe_p := mmp$get_sdtx_entry p (xcb_p, fde_pA. last segment number } ; 
IF (ste_pA.ste.vl <> osc$vl_invalid_entry) AND (sfid = stxe_pA.sfid) THEN 
old _assign_active :: stxe_ pA.assign_active; 
set_assign_active (stxe_p, pfte_pA.sva.offset) ; 
IF old_assign_active = mmc$assign_active_ null THEN 
tmp$set_monitor_flag (fde_p”.global_task_id, mmc$mf_segment_mgr_filag, status); 
IFEND; 
ELSEIF xcb_ pA.assign_active_ sfid = gfv$null_sfid THEN 
xcb_ pA.assign_active sfid := Sfid; 
tmp$set_monitor_ fiag (fde_p4.global_task_id, mmc$mf_segment_mgr_flag, status); 
IFEND ; 


jmp$unlock_ajl (ijle_p); 


{ If the GTID is mo longer valid, let the job monitor of the job take care of allocation. 


ELSE 
tmp$get_xcb_p (pfte_ijle_p%.job_monitor_taskid, xcb_p, ijle_p); 
IF xcb_p <> NIL THEN 
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NOS/VE 


tmp$set_monitor flag (ijle_ pA. job_monitor_taskid, 
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gfv$null_sfid THEN 
Sfid; 


mmc$mf_ segment_mgr_flag, status); 


mmv$ jmtr_escaped_aliocate + 1; 


lest segment owner’); {tl 


can we get here?? 


mmv$lost_escaped_ allocate + 1; 


2BC 9714 IF xcb_pA.assign_active_ sfid 

2cc 3715 xch_ pA. assign_active_sfid 

2cC 3716 

2FA 93717 IFEND ; 

2FA 93718 mmv$ jmtr_escaped_ allocate := 

2FA 97198 jmp$untock_ajl (ijle_p); 

3C2 93720 ELSE 

3C2 9721 mtp$error_ stop (’MM - 

3DE $722 mmv$ lost _escaped_allocate := 

3EC $723 IFEND; 

SEC $724 IFEND ; 

SEC 3725 

3EC 9726 PROCEND mmp$send_escaped_alloc_fiag; 
° 3727 
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NOS/VE CYBIL/TII 


1.0 89102 1989-08-21 


All pages in the transfer unit will be 


ws _ physical_io_reject, ws_no_ file _ assigned, 


ws_server_ terminated) ; 


reject the request and send a Signal to the 


oO $730 

O S731) (ies s hese see Hees eee es sa eie mm SE SS eS = 

° 9732 { This procedure is used to write a page to disk. 
© $733 { written unless they are locked. 

o 9734 { 

I oT ee EPS i a oe Sa CE RS ES et ae SA Per ie Bt Shei erie Stl eee as RS Ric et a es 
° 93736 

o 93737 

oO 3738 TYPE 

o 9739 mmt$write page _to_disk_ status = (ws_ok, 

o 9740 ws device manager reject, ws_volume_ unavailable, 
oO $741 

oO $742 

oO 93743 PROCEDURE [XDCL] mmp$write_page_to_disk 

o 3744 ( fde_p: gftS$locked file desc_entry_p; 

o 63745 pfti: mmt$page_frame_ index; 

oO 9746 iotype: iot$io_function; 

o $747 io_id: mmt$io_identifier ; 

oO 3748 multiple page _ req: boolean; 

o 9749 VAR write status: mmt$write_page_to_disk_status) ; 
o $3750 

o $751 VAR 

oO $752 aste_p: Ammt$active_ segment _table_ entry, 

oO $753 boffset: integer, 

o 93754 buffer descriptor: mmt$buffer_ descriptor, 

ce $3755 count: 1 .. 32, 

ce] 9756 eoffset: integer, 

Oo $757 found: boolean, 

o 9758 ijle_p: AjmtSinitiated job_list_entry, 

o 9759 ijl_ordinal: jmt$ijl_ordinal, 

o $760 length: integer, 

o $761 Isva: ost$system_virtual_ address, 

° S762 max bytes to write: integer, 

© $763 offset: integer, {dont make this a subrange} 
o $764 pfte_p: Ammt$page_ frame _table_ entry, 

° 9765 pte_p: Aost$page table _entry, 

oO S766 pti: integer, 

oO 3767 served file: boolean, 

o 93768 status: syt$monitor_ status, 

o 3769 stxe_p: Ammt$segment_ descriptor extended, 

o 9770 sva: ost$system_virtual_address, 

o $771 tu_start: integer, 

° S772 tu_end: integer, 

Oo $773 write multiple pages: boolean, 

oO 3774 xcb_p: Aost$execution_control block, 

Oo 3775 xpfti: mmt$page_frame_index; 

o Ss776 

o 3777 

o $778 

o 9778 { If the segment is not assigned to a file, 

o 9780 { owner of the segment to assign a backing file. 

o $781 . 

oO $782 pfte_ p :2 Ammv$pft_pA [pftil; 

4 $783 IF fde_pA.media = gfc$fm_transient_segment THEN 
30 $784 mmp$send_escaped_alloc_ flag (fde_p, pfte_p); 
42 $3785 write status := ws _ no file_assigned; 


13:33:34 


13:33:34 


ws_disk_ flaws, 
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42 3786 mmv$write page statistics [write status] :: mmv$write_ page statistics [write_status] + 1; 
42 3787 RETURN; 

5C 9788 IFEND ; 

5C 93789 

5C 97390 


5c 9781 { Reject the write if the page belongs to a file that has not yet been recovered. 
sc 9792 { The write must be delayed for a while. 


5C 93783 

sc 9794 aste_p := pfte_ pr.aste_p; 

5C 9795 IF aste_pA.sfid.residence = gfc$tr_system_wait_recovery THEN 

6A $796 write status := ws _physical_io_reject; 

64 9797 mmvSwrite page statistics [write status] := mmv$write_page_ statistics [write status] + 1; 
6A 3798 RETURN; 

84 93799 IFEND ; 

84 93800 

84 9801 


84 9802 { Determine the maximum number of bytes that can be written. For mass storage files, it is 

84 $803 { an allocation unit. For served files, the size is the smaller of the files allocation unit size 
8&4 9804 { and a constant that is dependent on the buffer size in STORENET. 

8&4 $805 { Note also that served files do not allow multiple outstanding write requests on a 

8&4 9806 { page because writes can be processed out of order. 


84 9807 

84 9808 max _ bytes _ to_write := fde_ pA.allocation_unit_size; 

84 98098 

84 9810 served _ file := (fde_p%.media = gfc$fm_served_ file) ; 
84 9811 IF served file THEN 

9A 9812 IF mmv$pft_pA [pfti].active_io_count <> O THEN 

BC 9813 write status : = ws_ physical_io reject, 

BC 9814 mmv$write_ page statistics [write status] :+* mmv$write_page_ statistics [write status] + 1; 
BC 9815 RETURN; 

D&E 9816 IFEND; 

D6 9817 {!77} mmv$pft_pA [pfti].io_error := ioc$no_error ; 

D& 9818 IF max_bytes_ to_write >» dfv$max_bytes_to_write THEN 
FE 9819 max bytes _to_write :: dfv$max_bytes to_write; 

102 93820 IFEND ; 

102 $821 IFEND; 

102 9822 

102 9823 


102 9824 {Calculate the SVA and LENGTH of the data to write to disk. The algorithm is to 

102 9825 {start with tne page specified by <pfti> and search contiguous pages 

102 9826 {in both directions in the segment until 1) the ends of the transfer unit are passed, 2) a locked page is 
102 9827 {found (PFT.LOCKED_ PAGE), 3) a page not in memory is found , 4) a non-modified page is found, OR 

102 9828 {5) a page is found that already has active 10 {server only). 

102 $8283 {The amount of data to write to disk is bounded by the outermost modified pages found by the search. 


192 9830 
102 9831 {Pages in the available modified queue will always be written. Multiple pages not in the available 
102 $832 {modified queue will not be written if the page belongs to a Swapped job. 
102 9833 
102 9834 Sva := pfte pA.sva; 
102 9835 tu_start :: (sva.offset DIV max_bytes_to_ write) * max_bytes_ to write; 
102 3836 tu_end : = tu start + max_bytes_ to_write; 
102 $837 imp$get_ijle_p (aste_p%.ijl_ordinal, ijle_p); . 
102 $838 write multiple pages := multiple page req AND (ijle_p%.swap_status = jmc$iss_executing) ; 
152 9839 tsva :: sva; 
152 9840 offset := sva.offset; 
152 9841 boffset ::= offset; 
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152 9842 

152 9843 /find_ starting page/ 

152 9844 WHILE boffset > tu_start DO 

164 9845 boffset := boffset - osv$page_size; 

164 9846 isva.offset := bhoffset; 

164 9847 #HASH_SVA (1sva, pti, count, found); 

1790 9848 IF NOT found OR NOT mmv$pt_pA [pti].m THEN 

194 3849 EXIT /find_ starting _page/; 

19E 9850 IFEND; 

19E $851 xpfti := (mmv$pt_pA [ptil.rma * 512) DIV osv$page_size; 

1S9E 93852 IF (mmv$pft_pA [xpfti]. locked _page <> mmc$1p_not_locked) OR 

1FC $3853 ((mmv$pft_pr [xpfti].queue_ id <> mmc$pq_avail_ modified) AND 
1FC 9854 (NOT write_multiple_ pages)) OR (served file AND (mmv$pft_pA [xpfti].active io _count <> ©)) THEN 
1FC 8069855 EXIT /find_start ing page/ ; 

200 9856 IFEND; 

200 9857 offset ::= boffset; 

200 9858 WHILEND /find_starting_page/; 

208 9859 

208 93860 eoffset := sva.offset + osv$page_size; 

208 $861 Sva.offset :: offset; 

208 9862 

208 9863 /find_ending_page/ - 

208 9864 WHILE (eoffset < tu_end) DO 

220 9865 lsva.offset ::= eoffset; 

220 9866 #HASH_SVA (1sva, pti, count, found) ; 

226 9867 IF NOT found OR NOT mmv$pt_pA {pti].m THEN 

250 9868 EXIT /find_ending_page/ ; 

254 s869 IFEND ; 

254 9870 xpfti := (mmv$pt_pA [ptil.rma * 512) DIV osv$page_size; 

254 9871 IF (mmv$pft_p [xpftil].locked_page <> mmc$ip_not_locked) OR 

2B6 9872 ((mmv$pft_pA [xpfti].queue_id <> mmc$pq_avail_modified) AND 
2B6 $873 - (NOT write _multiple_pages)) OR (served_file AND (mmv$pft_p’ [xpfti].active_io_count <> ©0)) THEN 
2B6 8874 EXIT /find_ending_ page/ ; 

2BA 9875 IFEND ; 

2BA 9876 eoffset := eoffset + osv$page size; 

2BA $3877 WHILEND /find_ending_page/; 

2C4 9878 length :: eoffset - sva.offset; 

2C4 9879 

2C4 9880 


2C4 $881 {Issue the write request to device manager. NOTE that the process of locking the page frames 
2C4 9882 {will clear the ‘modified’ bit in the page tabie. 


2c4 9883 

2C4 9884 buffer descriptor .buffer descriptor type := mmc$bd_paging_io; 

2C4 $885 buffer _descriptor.sva :* sva; 

2C& 9886 buffer descriptor .page_ count := length DIV osv$page_ size; 

2c4 $887 

2C4 9888 { Issue the i/o. Case includes pages on/not on server. 

2C4 9883S { Note: EOI update must be done first since it is used by file server. 

2C4 $890 

2C4& $891 mmp$update_eoi (fde_p, eoffset - osv$page_ size, mmc$uer_page_ written) ; 

330 9892 IF NOT served _ file THEN 

334 $893 iop$pager_io (fde_p, sva.offset, buffer descriptor, length, iotype, io _id, status); 
37E 9sao4 ELSE 

37E 9895 dfp$server_io (fde_p, iotype, sva.offset, length, io_id, buffer descriptor, status); 
3c4 s896 IFEND; 


3C4& 3887 5 
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3c4 693898 IF status.normal THEN 
3scc 8638398 fde_pA.time last_modified :: #free_ running clock (0); 
3D2 93800 write status : = ws_ok; 
3E2 $901 ELSEIF status.condition = dme$transient_error THEN 
3F2 9902 write status :: ws_device_ manager_reject; 
400 3903 ELSEIF status.condition = ioe$requests_ full THEN 
408 9904 write status ::3 ws physical _io reject; 
414 93905 ELSEIF (status.condition = ioe$unit_disabled) OR (status.condition = dme$volume_unavailable) THEN 
424 990606 write status := ws_volume_unavailable; 
432 9907 ELSEIF status.condition = dfe$server _has_terminated THEN 
43A 939308 write status :: ws_server_ terminated; 
448 3909 ELSEIF status.condition = dme$job_mode_allocate required THEN 
450 9910 mmp$send_escaped_alloc_flag (fde_p, pfte_p); 
462 93911 write status :: ws device manager reject ; 
470 9912 ELSE 
470 9913 mtp$error_ stop (‘MM - unexpected phy io error’); 
4gc 9914 IFEND; 
4sc 93915 
48C 9916 {Update statistics. 
48C 9917 
48c 9918 mmv$write page statistics [write status] := mmv$write_page_statistics [write status] + 1; 
48Cc $919 IF length <> osv$page_ size THEN {'This stat should be moved to IF STATUS.NORMAL 
4AaK 939320 mmv$aging _statistics.multiple_pages_written_to_disk := 
4B6 9921 mmv$aging statistics.multiple_ pages_written_to_disk + 1; 
4B&E 9922 ELSE 
4B&6 99323 mmv$aging statistics.page_written_to_disk := mmv$aging_ statistics.page_written_to_disk + 1; 
4CO 9924 IFEND; 
4CO 93925 
4CO 9926 PROCEND mmp$write_page_to_ disk; 
oO $327 
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$929 
9930 
9331 
$332 
9933 
9934 
93935 
9936 
9937 
9938 
9939 
$940 
9941 
9942 
9943 
9944 
$945 


mmp$remove* pages_from_JWS 


{Purpose: 


{ 


This procedure is called to remove a page from the working set of a job. 


{Notes: 


essen 


tte Ete te Bat 


- this routine will take care of page map purges if the page goes to the AVAIL _ MODIFIED queue. 
No purging is done if the page goes to the JWS queue. This queue is used for swapping only and no 
purging 1S necesSary. 


PROCEDURE [XDCL] mmp$remove_pages_from_jws 
( modified queue_id: mmt$page_frame_queue_ id; 
ijle_p: Ajmt$initiated_job_list_entry; 
VAR xmcount: integer; 
VAR xrcount: integer); 


VAR 
fde_p: gft$locked file _desc_entry_p, 
tos: integer, 
pfte_p: Ammt$page_frame_table_entry, 
pfti: mmt$page_ frame_index, 
aste_p: AmmtS$active_segment_table_entry, 
write status: mmt$write page _to_disk_ status, 
io_id: mmt$io_identifier, 
mcount: integer, 
rcount: integer, 
pte_p: Aost$page_table_entry; 


mcount := 
rceount = 


° 
° 
10_id.speci 


i 
fied := FALSE; 


Scan the PFTI array and eliminate any entries that cannot be removed. Clear the 

‘valid’ and ‘used’ bits for the entries that may be removed. Note: this step is unnecessary if 
the pages are going to the JWS queue - this is done ONLY for job sSwapout. The map purge is not 
required until the job starts running again. The job swapper insures that the purge occurs. 


IF modified _queue_id <> mmc$pq_job_working set THEN 
mmp$reset_ find _next_pfti (pfti); 
WHILE pfti <> 0 DO 
mmv$pt_pA [mmv$pft_pA [pfti] .ptil.v 
mmv$pt_pA [mmv$pft_ pA [pFfti].pti].u 
mmp$find next_pfti (pfti); 

WHILEND; 


FALSE; 
FALSE; 


Now that all used and valid bits have been cleared, purge that page map. It is important on a dual 
CPU system to purge the page maps before deleting the page table entry. Also, it is not 

possible to reliably determine the state of the ‘modified’ bit without clearing the ‘valid’ 

bit and purging the page map. 
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116 
134 
134 
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9985 
9986 
9987 
$988 
9989 
3990 
9991 
9992 
$993 
9994 
$995 
9996 
93937 
9998 
$999 
10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
100138 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 
10028 
190029 
10030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
10038 
10039 
10040 


arn 


aren 


{ If the page belongs to a stack segment and 


If the segment 
Reset PTE.V because 


If the page belongs to a device file that has the WIRE_EO!I 


it 


for a white. 


mmp$purge_all_page_map; 


IFEND; 
mmp$reset_find_next_pfti (pfti); 
WHILE pfti <> © DO 
pfte p := AmmvS$pft_pA [pftil]; 
aste_p := pfte pA.aste p; 


pfte pA.age := 0; 


pfte pA.cyclic_ag 2:2 0; 


pte_p := Ammv$pt_pA” [pfte_pA.pti]; 

IF modified queue _id = mmc$pq_job_working set THE 
pte pA.v := FALSE; 
pte pA.u :: FALSE; 

IFEND; 


is locked and (potentially) 


it was cleared above. 


modified, 


gfpS$mtr_get_locked fde_p (aste_pA.sfid, ijle_p, f 


IF fde_ p*.segment_lock. locked _for_write AND (pte_ 
pfti := 0; 
pte _ pA.v := TRUE; 


1$¢ the last page of the segment. 


Reset PTE.V because 


Set tne USED pit 
it was cleared above 


ELSEIF fde_p4.flags.wire_eoi_page THEN 


IF (fde_p%.eoi_byte_address - mmvSpft_p* [pfti] 
pte _ pA.v := TRUE; 
pte _ pA.u := TRUE; 
pfti := 0; 

IFEND; 


is no long 


{ and relink the page frame to the free queue. 


ELSEIF fde_pA.stack_for_ring <> O THEN 
tmp$get_top_of_stack (fde_pA.global_task_id, 
IF pfte_ pA.sva.offset >: tos THEN 

mmp$deliete pt_entry (pfti, TRUE); 


fd 


mmp$relink page frame (pfti, mmc$pq_free) ; 
fde_p’.eoi_ byte address := tos; 
pfti :: 0; 
reount := rcount + 1; 
IFEND; 
IFEND; 
{ Remove the page from the JWS and put it in the new qu 


{ bits 
{ be put 


in the page table entry. 
in JWS queue if job 


New queue may also be s 
is being swapped out. 
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376 
S7E 
37E 


10041 
10042 
10043 
10044 
10045 
10046 
10047 
10048 
10049 
10050 
10051 
10052 
190053 
10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10064 
10065 
10066 
10067 
10068 
10069 
10070 
10071 
10072 
10073 
10074 


IF pfti <> © THEN 
rcounmt :5 recount + 1; 
IF NOT pte_pA.m THEN 
IF pfte_ pA.active io count <> © THEN 
mmp$relink_ page frame (pfti, 
ELSEIF mmv$no_memory_ buffering THEN 
mmp$delete_pt_entry (pfti, TRUE); 


mmp$relink_page_ frame (pfti, mmc$pq_ free); 
ELSE 
mmp$relink_ page frame (pfti, mmc$pq_avail); 
IFEND ; 
ELSE 
mmp$relink page _ frame (pfti, modified queue i 
IF ((mmv$reassignable_page_frames.now + mmv$r 
mmv$Swrite aged out pages) AND 
io _id.specified := FALSE; 
mmp$write page to disk (fde_p, pfti, iec$wr 
IFEND; 
mceount := mcount + 1; 
IFEND; 
IFEND; 


mmp$find_ next pft i 
WHILEND; 


(pfti); 


mmv$S$aging statistics.remove_unmodified_page_from_ws 
mmvS$aging statistics.remove_unmodified_page_f 
mmv$aging statistics.remove_modified_page_from_ws 


mceount; 
xrcount := rcount; 
xmceount := mocount; 


PROCEND mmp$remove_pages_ from_jws; 


(modified queue_id = 


02 1989-08-21 


the pages cannot be removed. 


de_p); 


pA.m OR (pfte_pA.active_io_ count > 0)) 


attribute, dont remove it if 
so it wont be agéd out again 


-Sva.offset) <= osv$page_size THEN 


er needed, delete the page 


e_p’.stack_for_ring, tos); 


eue. New queue is determined by the st 
pecified by caller - 


02 1989-08-21 


mmc$pq_avail_modi fied) ; 


dq); 
eassignable page _frames.soon) < 
mmc$pq_ avail modified) THEN 


ite page, io_id, mmv$multi_page_ write, 


rom_ws + rcount - mcount; 


:= mmv$aging_statistics.remove_modified_ 


13:33:34 


THEN 


ate of tne “UM’ 


modified pages must 


13:33:34 


write status); 


page from ws + 
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10075 
10080 
10081 
19082 
10083 
10084 
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10086 
10087 
10088 
100893 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10097 
10098 
10099 
10100 
10101 

10102 
10103 
10104 
10105 
10106 
10107 
10108 
10108 
10110 
10111 

10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 

10122 
10123 
10124 
10125 
10126 
10127 
10128 
10128 
10130 
10131 


i 


{Name: 
mmp$remove_ page_from_JWS 


{ 


{Purpose: 
This procedure 


{ 


{Notes: 


{ 


this routine will take care of page map purges. 
this routine does not neccessarily write the page to disk. 


1888-08-21 13:33:34 


is called to remove a page from the working set of a job. 


PROCEDURE 
( pft 
ijl 


VAR mcount: 
VAR recount: 


VAR 
fde_p: 
tos: i 
pfte_ p 
aste_p 


write 


io_id: 
pte op: 


{Reject the 


mceount 
pfte p 
IF 
rcount 
RETURN 
IFEND; 


aste_p 
{Cliear the v 
{Valid bit 


pte _p4.v 
pte pA.u 


mmp$sva_ 


{If page hel 


set agai 


gfpSmtr_ 


IF fde_p 
pte_p% 
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118 
118 
128 
128 
128 
128 
128 
128 
128 
128 
128 
128 


19132 
10133 
10134 
10135 
10136 
10137 
10138 
101383 
10140 
10141 

10142 
10143 
10144 
10145 
10146 
10147 
10148 
10148 
10150 
10151 

10152 
10153 
10154 
10155 
10156 
10187 
10158 
10159 
10160 
10161 

10162 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 

10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
101890 
10181 
10182 
10183 
10184 


recount 
RETURN 
IFEND ; 


{Reset page 


pfte_ par. 
pfte pA. 
rcount 


{If the page 
{and relink 


IF fde_p 
tmp$ge 
IF pft 

mmp$ 
mmp$ 


fde_ 


RETU 
IFEND ; 
IFEND; 


{Remove the 
{bits in the 
{be put 


MUST be cleared and map purged 


in JWS queue 


[XDCL] mmp$remove_page_from_jws 

i: mmt$page_frame_index; 

e_p: Ajmt$initiated_job_list_entry; 
integer ; 

integer ); 


gft$ locked file _desc_entry_p, 

nteger, 

: Ammt$page_frame_table_entry, 

: Ammt$active_ segment _table_ entry, 
status: mmt$write page _to_disk_status, 
mmt$io_identifier, 
Aost$page_ table entry; 


request if the page is locked. 


0; 
Ammv$pft_ pA [pFftil; 


(pfte_ pA. locked _ page <> mmc$ip_not_locked) THEN 


a © 
p (<ee--} 


:2 pfte pA.aste_p; 


alid bit in the page table entry for the page. 


(im dual CPU) before ex 
Ammv$pt_pA 
:= FALSE; 
:=s FALSE; 

purge _one_page_map (pfte_p’.sva); 


[pfte_pA. pti]; 


ongs to a 
n because 


locked segment and 
it was cleared 


is modified, leave it ai 


in @ previous step. 
get_locked_fde_p (aste_p%.sfid, ijle_p, fde_p); 
A.,segment_lock. locked _for_write AND (pte _p%.m OR 
vo: TRUE; 


(pft 
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12 40; 
; i¢e+e-]} 
ages. 
age :: 0; 


cyclic age := 0; 


Het a 


belongs to a stack segment and is no 
the page frame to the free queue. 


longer needed, 


4.stack_for_ ring <> © THEN 

t_top_of stack (fde_p4.global_task_id, 
e_ pA.sva.offset >»: tos THEN 
delete_pt_entry (pfti, TRUE); 

relink _page_ frame (pfti, mmc$pq_free) ; 
pA.eoi_ byte address := tos; 

RN; {<----} 


fde_ p4A.stack_f 


page from the JWS and put 
page table entry. 
if job 


it in the new queue. New q 
New queue may also be specified by 
is being swapped out. 


IF NOT pte pA.m THEN 


IF pft 
mmp$ 
ELSEIF 
mmp$ 
mmp$ 
ELSE 
mmp$ 
IFEND; 


e_pA.active_io_count <> © THEN 

relink_page_frame (pfti, mmc$pq_avai1_modified) ; 
mmv$no_memory buffering THEN 

delete _pt_entry (pfti, TRUE); 

relink_page_frame (pfti, mmc$pq_free) ; 

relink _page_ frame 


(pfti, mmc$pq_avail); 


mmv$aging statistics.remove_unmodified_ page _ from_ws := 


ELSE 


mmp$relink page frame (pfti, 


IF 


mmvS$aging statistics.remove_unmodified page _from_ws + 


mmc$pq_avail modified) ; 


mnv$write aged_out_ pages) THEN 
io_id.specified :=: FALSE; 
mmp$write page _to_disk (fde_p, pfti, toc$write_ page, io_i 


IFEND; 


mmv$aging statistics.remove_ modified page from_ws := 
mmvS$aging _statistics.remove_modified_ page _from_ws + 1; 


meount 
IFENOD; 


a 


PROCEND mmp$remove_page_from_jws; 


amining modified bit. 


one. NOTE: valid bit must 


e_p4r.active_io_count > ©)) THEN 


1989-08-21 13:33:34 


delete the page 


er_ring, tos); 


ueve is determined by the state of the ’UM’ 


caller - modified pages must 


1; 


((mmv$reassignable_page_ frames.now + mmv$reassignable_page_frames.soon) < 


d, mmv$multi_page_write, write status); 


' 


PAGE 624 


PAGE 625 
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MMPSREMOVE PAGE FROM_JOB 
© 10187 
© 10188 [{r- ese eee eee ee ee wee et ee ee ee wo te Se ee a ee ee eee ee - 
o 10189 { 
© 10190 { This procedure is called to remove pages from a job’s working set. It is called 
o 10191 { from mmp$mm_write_modified_ pages (if the request is coming from detach file) to 
o 10182 { relink unmodified jws pages to the available or free queues. 
o 10193 { 
0 10194 (rr mt et tr tt rt er ee ee em ee mee ee ee eee SSS SRS SI, ee ee Se oe Te aes 
oOo 10195 
© 10196 PROCEDURE [XDCL] mmp$remove_page_from_job 
© 10197 ( pfti: mmt$page_ frame_index) ; 
o 10198 
© 101985 VAR 
© 10200 pte_p: Aost$page table entry; 
o 10201 
© 10202 pte_p := AmmvS$pt_pA [mmv$pft_pA [pfti] .ptil; 
4 10203 
4 10204 {Clear the valid bit in the page table entry for the page. 
4 10205 
4 10206 pte_pA.v := FALSE; 
4 10207 pte _p%.u :: FALSE; 
4 10208 mmp$sva_purge_one_page_ map (mmvS$pft_p% [pfti].sva); 
5A 10209 mmv$pft_ pA [pfti].age := 0; 
54 10210 mmv$pft_ pr [pfti].cyclic_age := 0; 
5A 10211 
54 10212 {Remove the page from the JWS and put it in the new queue. 
5A 10213 
5A 10214 IF NOT pte _p%.m THEN 
8& 10215 IF mmv$pft_p* [pfti].queue_id = mmc$pq_job_io_error THEN 
$4 10216 mmp$relink_page_ frame (pfti, mmc$pq_ snared_io_error) j; 
BO 10217 ELSEIF mmv$pft_pA [pfti].active_io_count <> © THEN 
B&8 10218 mmp$relink_page_ frame (pfti, mmc$pq_avail_modified) ; 
DO 10218 ELSEIF mmv$no_memory_ buffering THEN 
bD& 10220 mmp$delete_pt_entry (pfti, TRUE); 
EE 10221 mmp$relink page frame (pfti, mmc$pq_free) ; 
106 10222 ELSE 
106 10223 mmp$relink page frame (pfti, mmc$pq_avail) ; 
11C 10224 IFEND; 
11E 10225 ELSE 
11E 10226 mtp$error_ stop (’PAGE FOUND MODIFIED ON REMOVE’) ; 
13E 10227 IFEND ; 
13E 10228 PROCEND mmp$remove_page_from_job; 
© 10229 d 
SOURCE LIST OF mmm$page_fault_ processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
CHECK _FREE_QUEUES 
Oo 10232 
0 10233 [errr ttt rrr rr em mmm mee ee we eee mw ree ew ee See, SS ee es Seen 
© 10234 { 
© 10235 {This procedure iS called after processing a request to determine if 
© 10236 {the free queues need to be replenisned. If so, a flag is set to cause 
© 10237 {CP Monitor to cal? Memory Manager. 
© 10238 { 
0 10239 [errr ttre rrr me em me tm me mm mr wee ee re eee er wwe men me ewww ww wae ane 
© 10240 
Oo 10241 PROCEDURE [INLINE] check_free_ queues 
Oo 10242 ( cst_p: Aost$cpu_state table) ; 
Oo 10243 
0 10244 VAR 
© 10245 count: integer; 
Oo 10246 
© 10247 count := mmv$reassignable_page_frames.now + mmv$reassignable_page_frames.soon; 
Oo 10248 IF count < mmv$aggressive_aging level_2 THEN 
o 10249 imp$recognize_ thrashing; 
o 10250 IFEND ; 
o 10251 IF count <= mmv$aggressive_aging_level THEN 
© 10252 IF count < mmv$aggressive_aging level THEN 
Oo 10253 cst_pA.dispatch_control.asynchronous interrupts pending := TRUE; 
o 10254 IFEND; 
© 10255 mmv$time_to_call_mem_mor := 0; 
© 10256 osv$time_to_ check _asyn := 0; 
© 10257 mmv$Saging statistics.force_aggressive_aging := mmvSaging_statistics. force _aggressive_aging + 1; 
oO 10258 IFEND ; 
oOo 10259 
© 10260 PROCEND check_free_ queues; 
Oo 10261 
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MMP$AGE_JOB_WORKING_SET 


© 10263 e 

© 10264 [emer mrt ee mt em me me me Re Re ROR RRO RR RR ROR ER RR ER RO eR OR Re 
© 160265 { This routine scan the page frames in the working set of a 

o 10266 { job and updates the page ages, clears the page table ‘USED’ bits, 

© 10267 { and removes unused pages from the working set of the job. 

© 10268 [----+--- OES Se ele ee ees ee ee See aS: Sie Rie ee he eee eS: SRS SIS Se See ee ey Sie es See, Set eee res SU SR SS SSS SOR mene ee ie ee ee, Sie eS 
o 10268 

© 10270 

Oo 10271 PROCEDURE [XDCL] mmp$age_job_working set 

© 10272 ( ijle_p: Ajmt$initiated_job_list_entry; 

© 10273 jcb_p: Ajmt$job_control_ block); 

Oo 10274 

oO 10275 

Oo 10276 VAR 

© 10277 fde_p: gft$file_desc_entry_p, 

© 10278 pqie_p: Ammt$page_queve_lTist_entry, 

o 10279 i: integer, 

© 10280 cptime: integer, 

o 10281 pfti: mmt$page_frame_index, 

Oo 10282 perf, 

© 10283 Tink, 

© 10284 lu_Tink: mmt$link, 

© 10285 pfte_p, 

© 10286 lu_pfte_p: Ammt$page_frame_table_entry, 

Oo 10287 mcount: integer, 

© 10288 rcount: integer, 

Oo 102893 aii, 

© 10230 aic, 

Oo 10291 aif: integer, 

© 10292 

© 10293 IF mmv$aging_ algorithm >= 4 THEN 

18 10294 cptime := ijle_ pA.statistics.cp_time.time_spent_in_job_mode; 

24 10295 ELSE 
24 10296 cptime := ijle_pA.statistics.cp_time.time spent _in_ mtr mode + 

34 10297 ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
34 10298 IFEND; 

34 10289 aii: (cptime - jcb_pA.cptime_next_age_ working set + jcb_p4.page_aging_intervai) DIV 
34 10300 jcb_p4.page_aging_ interval; 

34 10301 mmv$Saging statistics.calis to_age_jws := mmv$aging_ statistics.callis_to_age_jws + 1; 
34 10302 IF (aii < 1) THEN 
§C 106303 aii: 1; 

60 10304 IFEND; 

60 10305 jcb_pA.cptime_next age working set := cptime + jcb_p“.page_ aging _ interval; 
60 10306 pqile_p := Aijlie_ pA. job_page_queue_list [mmc$pq_job_working_ set]; 

60 10307 

60 190308 

60 10309 [{ Calculate the values of AIC, and AIF to be used in processing this request. 
60 10310 

60 10311 aic :: mmvS$age_interval ceiling; 

60 10312 aif : = mmv$age_interval_ floor ; 

60 10313 

60 10314 

60 1060315 { Age the job working set and relink the page frames into LRU order. 

60 10316 

60 10317 mmp$reset store _pfti; 

60 10318 Tu_link.bOkw :: 0; 
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60 10319 Tink. bkw > pqle_ pA. link. bkw; 
60 10320 rcount := ijle_pA. job_page_queue_list [mmc$pq_job_ working set].count - jcb_pA.min_working set_size; 
60 10321 
60 10322 IF syv$perf_ keypoints enabled.aging keypoints THEN 
B6 10323 perf := link; 
BE 10324 WHILE perf.bpkw <> Oo BDO 
C2 10325 pfte_p := Ammv$pft_pA [perf .bkw] ; 
C2 10326 perf :5 pfte_ pA. 1ink; 
C2 10327 gfpS$mtr_get_fde_p (pfte_pr.aste_pA.sfid, ijle_p, fde_p); 
14C 10328 #KEYPOINT f{osk$performance, osk$m * fde_ pA. last _segment_number, ptk$aging segment); 
15¢€ 10329 #KEYPOINT (osk$performance, osk$m * (pfte_pA.sva.offset DIV osv$page_size), ptk$aging page_number ); 
174 10330 WHILEND; 
18A 10331 #KEYPOINT (osk$performance, osk$m * (ijle_pA.job_page_queue_list [mmc$pq_job_fixed].count), 
19A 10332 ptk$aging, job_fixed); 
189A 10333 #KEYPOINT (osk$performance, osk$m * (pfte_pA.ijl_ordinal.block_nmumber * 
1B8 10334 32 + pfte_pA.ijl_ordinal.block_index), ptk$aging_ijl_ordinal); 
1B8 10335 IFEND; 
1B88 10336 IF syv$perf_ keypoints_enabled.aging stack_trace THEN 
1CO 10337 tmp$monitor_flag_ job_tasks (syc$mf_for_keypoint_traceback, ijle_p); 
1DA 10338 IFEND; 
1DA 10339 
1DA 10340 WHILE (link.bkw <> 0) AND (rcount > ©) DO 
1EC 10341 pfte_p := Ammv$pft_p4 [link.bkw]; 
1EC 10342 pfti :: link.bkw; 
1EC 10343 link = pfte pA. link; 
1EC 10344 IF mmv$pt_pA [pfte_pA.pti].u THEN 
228 10345 mmv$pt_pA [pfte_pA.pti].u :2 FALSE; 
228 10346 pfte pA.age := 0; 
228 10347 pfte_ pA.cyclic_age := 0; 
228 10348 IF ltu_link.bkw = O THEN 
23C 16349 lu_pfte_p :: pfte_p; 
23C 1060350 lu_link. fwd :+ Tink. fwd; 
23C 10351 lu_link.bDkw : = pfti; 
24C 10352 IFEND ; 
250 10353 ELSEIF pfte_p4. locked page <> mmc$1p_not_locked THEN 


25C 10354 
25cC 10355 { Do nothing 


25C 10356 

25C 10357 ELSEIF ((pfte_ pr.age + aii} >» aic) THEN 

266 10358 mmp$store pfti (pFfti); 

266 10359 recount := rcount - 1; 

294 10360 ELSEIF ((pfte_pA.age + aii) > aif) THEN 

298 10361 mmp$store_pfti (pfti); 

2938 10362 recount := rcount - 1; 

2938 10363 mmvSaging statistics.age_exceeds aif :: mmv$aging_statistics.age exceeds aif + 1; 
2938 10364 aif :: 65536; {Only remove one page for age > AIF} 
204 10365 ELSE 

2D4 10366 pfte_ pA.age := pfte_pr.age + aii; 

204 10367 IF (lu_link.bkw <> ©) THEN 

2EO 10368 IF link.bBkw = O THEN 

2E8 10369 pqle pA. link. fwd := link. fwd; 

2F4 10370 ELSE 

2F4 10371 mmv$pft_ pA [link. bkw]. link. fwd : = link. fwd; 
308 10372 IFEND; 

308 10373 mmv$pFft_ pA [link.fwd].link.okw : = link. bkw; 


308 10374 : pfte pA. Tink : = Iu_link; 
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308 10375 IF lu_link.fwd = © THEN 
336 10376 Ppqie_ pA.1ink.bkw := pfti; 
33E 10377 ELSE 
33E 10378 mmv$pft_ pA [lu_link.fwd].link.bkw :: pfti; 
354 10379 IFEND; 
354 10380 lu_pfte_ pA. link. fwd := pFfti; 
354 10381 lu_link.fwd := pFfti; 
35E 10382 IFEND; 
35E 10383 IFEND ; 
35E 10384 WHILEND; 
370 10385 
370 10386 
370 10387 { If any pages have been selected for removal, remove the pages from the working set. 
370 10388 
370 10388 mmp$fetch_pfti_array_size (rcount); 
370 10390 mceount := 9; ke 
370 10391 IF rcount > O THEN 
38E 10392 mmp$remove_pages_from_jws (mmc$pq_avail_modified, ijle_p, mcount, rcount); 
3B8 10393 mmvS$aging statistics.age_ exceeds aic :: mmv$aging_ statistics.age_ exceeds aic + rcount; 
3CA 160394 ELSE 
3CA 10395 mmp$purge_all_page_map; 
3E4 10396 IFEND, 
3E4° 10397 IF syv$perf_ keypoints enabled.aging keypoints THEN 
3EC 10398 #KEYPOINT (osk$performance, osk$m * mcount, ptk$aging modified pages) ; 
3F8 10399 #KEYPOINT (osk$performance, osk$m * rcount, ptk$aging pages removed) ; 
404 10400 IFENO; 
404 10401 
404 10402 PROCEND mmp$age_job_working set; 
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10404 
10405 
10406 
10807 
10808 
10409 
190410 
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10412 
10413 
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10415 
10416 
10417 
10418 
10419 
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10421 
190422 
10423 
10424 
190425 
10426 
10427 
190428 
104293 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
106439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 
10452 
10453 
10454 
10455 
10456 
10457 
10458 
10458 
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This procedure is called to remove stale pages from a page queue. A stale page is defined as a page 


that has a ‘SWAP_COUNT’ (field should be renamed) greater or equal to the value specified by the caller. 


This procedure does the following: 
Scan each page in the page queue 
If the ’u’ bit in the page table is set 


clear it if aging the shared queue (if aging because of swapping,dont clear it - this would defeat 


the page aging aigorithms. 
ELSE if the swap count < stale count, increment Swap count 


ELSE remove the page from the page queue (queue_id is passed from the caller to indicate if page goes 


to AM or JWS queue (used for swap aging) ) 


This procedure is intended to be used to: 
age the shared queue 
provide SWAPPING AIC aging of job working setS prior to swap. 


This procedure does NOT keep the page queue in a LRU order. 


PROCEDURE [XDCL] mmp$remove_stale_pages 

(VAR pale: mmt$page_queue_list_entry; 
limit: integer; 
jcb_p: Ajmt$ job_control_block; 
ijle_p: AjmtS$initiated_job_list_entry; 
queve_id: mmt$page_frame_queuve_id; 
minimum_working set: O .. OF FFF(16); 

VAR modified pages removed: integer; 

VAR total_pages_ removed: integer); 


VAR 
cptime: integer, 
eoi: ost$segment_length, 
lstatus: syt$monitor_ status, 
recount: integer, 
pfti: mmt$page_frame_index, 
end_pfti: mmt$page_frame_index, 
next_pfti: mmt$page_frame_index, 
mmv$age_not_pageable: [XDCL] integer :=: Oo, 
pfte_p: Ammt$page frame_table_ entry; 


IF jcb_p <> NIL THEN 
jcb_p4.next_cyclic_aging time :: #FREE_RUNNING CLOCK (0) + jcb_pA.cyclic_aging_interval; 
IF mmv$aging algorithm >= 4 THEN 
cptime := ijle_pA.statistics.cp_time.time spent _in_job_mode; 
ELSE 
cptime := ijle_ pA.statistics.cp_ time.time_spent_in_mtr_mode + 
ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
IFEND; 
jcb_p4.cpt ime_next_age_ working set := cptime + jcb_pA.page_aging_interval; 
IFEND; 
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total _pages_ removed) ; 


SC 10460 mmp$reset_store_pfti; 
Sc 10461 pfti <:* pqte. Tink. bkw; 
5C 10462 end _ pfti := pqie. Tink. fwd; 
SC 10463 recount :: pqie.count - minimum working. set; 
5C 10464 
5C 10465 WHILE (pfti <> end_pfti) AND (rcount > 0) DO 
SA 10466 pfte p := Ammv$pft_pA [pftil; 
9A 10467 next _pfti :: pfte_ pA. Tink. bkw; 
94 10468 IF mmv$pt_p4 [pfte_p4.pti].u AND NOT jsv$free_ working set_on_swapout THEN 
Dc 10469 mmv$pt_ pA [pfte_pA.pti].u := FALSE; 
DC 10470 pfte pA.cyclic_ag 7:2 0; 
pc 10471 pfte pA.age := 0; 
EC 10472 ELSEIF pfte_ pA.cyclic_age ¢ limit THEN 
F8 10473 pfte pA.cyclic_ age :* pfte_pA.cyclic_age + 1; 
102 10474 ELSEIF pfte_pA. locked page <> mmc$i1p_not_locked THEN 
JOE 10475 
10E 1060476 [ Do nothing 
10E 10477 
10E 10478 ELSE 
10E 104793 mmp$store_ pfti (pFfti); 
10E 10480 rcount :* recount - 1; 
134 10481 IFEND; : 
134 1060482 
134 10483 pfti := next _pfti; 
134 10484 WHILEND ; 
14E 10485 
14E 10486 
14E 10487 If any pages have been selected for removal, remove the pages from the working set. 
14E 10488 
14E 10489 mmp$fetch_ pfti_array_size (rcount); 
14E 10490 IF rcounmt > O THEN 
164 10491 mmp$remove_pages_from_jws (queue_id, ijle_p, modified pages removed, 
192 1060492 ELSE 
182 10493 total pages.removed :=: 0; 
192 10494 modified pages removed := 0; 
182 10495 IF queue_id = mmc$pq_avail_modified THEN 
1AC 10496 mmp$purge_all_page_map; 
1€8 10497 IFEND; 
1€8 10498 IFEND; 
18 10499 
1C8 10500 
1€8 10501 PROCEND mmp$remove_ stale pages; 
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{ This procedure is called to trim a job working set. 
{ If the size of the working set exceeds the max allowed, 


PROCEDURE [XDCL] mmp$trim_job_working_ set 
( ijle_p: Ajmt$initiated_job_list_entry; 
jcb_p: AjmtSjob_contro} block; 
trim_to_swap_size: boolean); 


VAR 
pfti: mmt$page_frame_index, 
last pfti: mmt$page_frame_index, 
pte _p: Aost$page_table_entry, 
maximum pages _to_ swap: integer, 
mcount: integer, 
rcount: integer, 
smallest_maximum_working set: integer, 
pfte_p: Ammt$page_frame_table_entry; 


IF syv$recovering job_count <> © THEN 
RETURN; 
IFEND; 


IF (jcb_p4.max_working set_size < mmv$max_working set _size) THEN 
smallest_maximum_working set := jcb_p4.max_working set size; 
ELSE 
smallest_maximum_working set := mmv$max_ working set_size; 
IFEND; 


IF trim_to_swap_size THEN 
IF ijle_pA.task_created after last swap THEN 
maximum _pages to_Swap := jsv$max_pages first _swap_task; 
ELSE 
maximum_pages_to_ swap := jsv$maximum_pages_ to_swap; 
IFEND; 


IF smallest_maximum_working set > maximum _pages_to_swap THEN 
smallest _maximum_working set := maximum pages _to_swap; 
IFEND; 
IFEND; 


pfti :2 ijle_p4%.job_page_ queue_list [mmc$pq_job_working set]. link 
WHILE (ijle_p4. job _page_queue_list [mmc$pq_job_working set] .count 
(pfti <> 0) DO 

pfte_ p := Ammv$pft_pA [pftil; 

pte_p := Ammv$pt_pA [pfte_pA.ptil]; 

last pfti :5 pFfti; 

pfti :: pfte pA. link. bkw; 

mmp$remove_ page _from_jws (last _pfti, ijle_p, mcount, rcount); 
WHILEND; 


PROCEND mmp$trim_job_working set; 
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© 10560 

© 105614 [errr rr tt tre tt te me ew meee ee we ee ewe me ee rer ee ewe aaa aaa die SSS aS Sosa eee See a es SSeS = eee eee 
© 10562 { This procedure is called to take pages out of the snared queue. Pages will be removed until 

© 10563 { mmv$reassignable_ page frames.now minus mmv$aggressive_aging level_2 is greater than 

© 10564 { the number of pages requested. 

© 10565 { 

© 10566 { The removal of pages from the shared queues will be done in two passes. On the first pass a number of 
© 10567 { pages will be removed from each shared queve as determined by the minimum size attribute of the queue. 
© 10568 { If the minimum is zero, then all of the pages in that queue will be removed during the first pass. 

© 10569 { If the first pass does not remove enough pages, then another pass will be made during which all pages 
© 10570 { can be removed if necessary. The passes are terminated early whenever enough pages have been removed. 
© 10571 [ec ete ttre ttm tee ee ee ee em me me me ee eee 
0 10572 

© 10573 PROCEDURE [XDCL] mmp$dump_shared_queue 

o 10574 ( total _ pages needed: mmt$page_frame_index) ; 

Oo 10575 

oO 108576 VAR 

0 10577 modified pages removed: integer, 

© 10578 next _pfti: mmt$page_frame_index, 

o 10579 pages _from_queue: integer, 

oO 10580 pages removed: integer, 

o 10581 pfti: mmt$S$page_ frame_index, 

© 10582 reduce queue below _minimum: boolean, 

© 10583 queue_id: mmt$page_ frame_queue_id; 

© 10584 

© 10885 reduce queue below_minimum :=: FALSE; 

4 10586 

4 10587 /two_passes/ 

4 10588 WHILE 1 = 1 DO 

8 10589 FOR queue_id := mmv$last_active_ shared queue DOWNTO mmc$pq_shared_ first 00 

1€ 10590 pfti := mmv$gpqi [queue_id].pqie. link. bkw; 

10 10591 IF reduce _ queue below _ minimum THEN 

28 10592 pages_from_queue := mmv$gpqi [queue_id].pqlie.count ; 

30 105833 ELSE 

30 10594 pages _from_queue := mmv$gpqi [queue_id].pqlie.count - mmv$gpqi [queue_id].minimum; 

3A 10595 IFEND; 

3A 10596 

34 10597 { If the count of pages in the queue is less than or equal to the minimum, one of the pages will be 

34 10598 { removed on the first pass. If there are no pages in the queve, pfti will be zero. 

34 10599 

3A 10600 /dump_a_queue/ 

3A 10601 WHILE pfti <> oO DO 

42 10602 next pfti := mmv$pft_ pA [pfti]. link. Dkw; 

42 10603 mmp$remove_ page from_jws (pfti, NIL, modified _ pages removed, pages _ removed) ; 

&2 10604 pfti := next _ pFfti; 

82 10605 pages _from_queue := pages from queue ~- 1; 

82 10606 IF pages _from_queue <= O THEN 

8A 10607 EXIT /dump_a_queue/ 

8E 10608 IFEND; 

8E 10609 IF (mmv$reassignable_page_frames.now - mmvS$aggressive_aging level_2) >= total_pages needed THEN 
AO 10610 EXIT /two_passes/ {Terminate both passes since the pages needed are available. 
A2 10611 IFEND; 
A2 10612 WHILEND /dump_a_queue/ ; 
A& 10613 FOREND ; 

AE 10614 

AE 10615 IF reduce _ queue below _ minimum THEN 
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EXIT /two_passes/; { exit, All the shared queves have been dumped including the minimums. 
IFEND ; 


reduce queue below _minimum ::= TRUE; {Allow queues to be reduced below the minimum size on pass 2. 
WHILEND /two_passes/; 


PROCEND mmp$dump_ shared queue; 
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© 10626 
© 10627 {[------- wert ew et ee ee ESSERE eee eo OSG N eS ee ere ete nen Shere ee emilee S eda dls ie eee ese ee Sh ele Slee Seo See eee ie 6) Ss S.e ace eie = 
© 10628 { This procedure is called to assign a new page frame to a segment. 
© 10629 { The routine performs the following steps: 
o 10630 f{ obtain a free page frame. 
© 10631 { delete the PT entry using the page frame (if necessary). 
© 10632 { make a new PT entry for the page. 
© 10633 { update the PFT entry for the page frame and the AST entry for the seg. 
© 10634 { 
© 10635 { MMPSASSIGN_PAGE FRAME (SVA, ASTE_P, NUMBER_OF_ PAGES TO_ASSIGN, STARTING PFTI, 
© 10636 { ASSIGNED PAGE COUNT, PFTI, PSTATUS); 
© 10637 { 
© 10638 { SVA: CINPUT) SVA that identifies page 
© 10633 { ASTE_P: (INPUT) Pointer to AST tabie entry for the segment 
© 10640 { NUMBER_OF_ PAGES TO_ASSIGN: (INPUT) This parameter specifies how many pages 
o 10641 { the caller wants assigned. 
oO 10642 { STARTING PFTI: (INPUT) This parameter specifies the pfti where page assignment is to begin. 
© 10643 { This parameter will be non-zero only if the request for page assignment is coming 
o 10644 { from the ASSIGN _ CONTIGUOUS MEMORY request. 
© 10645 { ASSIGNED_PAGE COUNT: (OUTPUT) Number of pages actually assigned. May be less than requested if a 
© 10646 { page already exists in the specified range. 
© 10647 { FIRST_PFTI: (OUTPUT) Page Frame Table index of first page frame assigned. If more 
o 10648 { than one page assigned the other pages are linked through the 
o 10649 { backward link in the page frame table entry. 
o 10650 { PSTATUS: (OUTPUT) Status 
o 10651 { ps_done - if all pages were assigned 
© 10652 { ps_no_memory - if insufficient memory is available to assign ALL requested 
© 10653 { PS_pt full - if page table full. Some pages may have been assigned before page table full 
o 10654 { occurred; ASSIGNED PAGE COUNT will indicate how many pages were assigned. 
© 10655 { PS_valid_in_pt - if a page is in PT. Some pages may have been assigned before valid in page 
o 10656 { table occurred; ASSIGNED PAGE COUNT will inicate how many pages were assigned. 
© 10887 [-eee rr te ett etree wee neem etree new nns metre ee ee ewe meer ewe ee SS Re See Se ee Se ee Re ee 
Oo 10658 
Oo 10659 PROCEDURE [XDCL] mmp$assign_page_frame 
© 10660 ( sva: ost$system_virtual address; 
Oo 10661 aste_p: Ammt$active_segment_table_ entry; 
Oo 10662 number_of pages_to_assign: mmt$page_frame_index; 
© 10663 starting pfti: mmt$page_frame_index; 
Oo 10664 VAR assigned page count: mmt$page_frame_index; 
© 10665 VAR first_pfti: mmt$page_frame_index; 
© 10666 VAR pstatus: mmt$page_pull_status); 
Oo 10667 
© 10668 VAR 
© 10669 assign_page_loop_count: mmt$page_frame_index, 
© 10670 page sva: ost$system_virtual_address, 
© 10671 pfti: mmt$page_ frame_index, 
© 10672 pfte_p: Ammt$page_frame_table_entry, 
© 10673 mpt_ status: mmt$make_pt_entry status; 
Oo 10674 , 
© 10675 
Oo 10676 
Oo 10677 assigned page count := 0; 
4 10678 first _pfti := starting pfti; 
4 10679 IF first_pfti <> O THEN 
1E 10680 pfti := starting pfti - 1; 
24 10681 IFEND; 
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MMPSASSIGN PAGE FRAME : 
24 10682 IF number _of pages_to_assign > mmv$reassignable_page_frames.now THEN 
34 10683 pstatus :* ps _nmo_memory; 
34 10684 RETURN; 
40 10685 IFEND ; 
4O 10686 
40 10687 pstatus := ps_done; 
40 10688 page sva :* sva; 
40 10689 assign_page_loop_ count := number_of pages to assign; 
40 10690 
40 10691 WHILE assign _page_loop_count > © DO 
54 106392 
54 10693 {Get an available page frame to use for the new page. Return an error code if mo memory is available. 
54 10694 
54 10695 IF starting pfti = © THEN 
5C 10696 mmp$get_avail_page_ frame (pfti),; 
DO 10697 IF pfti = © THEN 
D& 106698 mtp$error stop (’MM - no mem for assign_page’); 
F& 10699 IFEND; 
FC 10700 ELSE 
FO 10701 
FC 10702 {The non-zero starting pfti indicates that the request to assign page frames is 
FC 10703 {coming from an ASSIGN CONTIGUOUS MEMORY request. That request has verified 
FC 10704 {that the page frames from (starting pfti-->number_pages_ to_assign) are available. 
FC 10705 
FC 10706 pfti := pfti + 1; 
106 10707 IFEND; 
106 10708 pfte_ p := AmmvS$pft_pA [pftil; 
106 10709 
106 10710 
106 10711 {Make a PT entry for the new page. If page table was full, link the page frame back to the free queue. 
106 10712 
106 10713 mmp$make_pt_entry (page_sva, pfti, aste_p, pfte_p, mpt_status) ; 
14C 10714 IF mpt_status <> mmc$mpt_done THEN 
154 10715 mmp$relink_page_ frame (pfti, mmc$pq_free) ; 
16C 10716 IF mpt status = mmc$mpt_page_ table_full THEN 
176 10717 mmv$async_work.pt_full_aste_ p := aste_p; 
176 10718 mmv$async_work.pt_full_sva := page _sva; 
176 10718 mmv$async_work.pt_ full := TRUE; 
176 10720 mmv$time_ to _call_mem_mgr := 0; 
176 10721 osv$time_to_check_asyn := 0; 
176 160722 pstatus := ps _pt_full; 
194 10723 ELSE {must be valid in PT - make sure no other statuses} 
194 10724 pstatus := ps _valid_in__pt; 
1AO 10725 IFEND; 
1AQ0 10726 RETURN ; 
1A2 10727 IFEND; 
1A2 10728 
1A2 10729 
1A2 1073060 {Update the page frame table entry for the new entry. 
1A2 10731 
1A2 10732 IF pfte pA.task queue.head <> © THEN 
1AA 10733 mtpSerror_ stop (‘MM - reassigned PF with task queue’); 
1CA 10734 IFEND; 
1CA 10735 pfte pA.age := 0; 
1CA 10736 pfte pA.cyclic_age := 0; 
1CA- 10737 pfte pA.io_error := ioc$no_error; 
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1CA 10738 pfte pA.sva := page sva; 
1CA 10739 pfte pA.aste p := aste_p; 
1CA 10780 pfte pA. locked page := mmc$Ip_not_ locked; 
1CA 10741 pfte pA.ijl_ordinal : = aste_ pA.ijl_ordinal; 
1CA 10742 
1CA 10743 
1CA 10744 {Link the page frame into the new queue. 
1CA 10745 
1CA 10746 mmp$relink_page_frame (pfti, aste_ pA.queue_ id) ; 
20E 10747 
2O0E 10748 IF first _pfti = 0 THEN 
216 1060749 first _pfti = pfti; 
21E 10750 IFEND ; 
21E 10751 
21E 10752 assigned page count := assigned page _ count + 1; 
21E 10753 assign_page_loop_ count := assign_page_loop_count - 1; 
21E 10754 IF assign_page_loop_count >» ©O THEN 
22E 10755 page sva.offset : = page _Sva.offset + osv$page_size; 
242 10756 IFEND; 
242 #10757 WHILEND; 
246 10758 
246 10759 
246 10760 PROCEND mmp$assign_page_frame; 
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© 10763 
© 10764 [ert mee en tr te tert ter ene SSS SSS ae, Se soe SS See ee erie eee ete ee er eran eS Sete mies ee ene ie Sue te eer SR Snevehe eS Sere. ey Sie e ee eS Se Se a ae 
© 10765 { This procedure is called to make a page of a segment accessibie in 
©o 10766 { the address space of the current user task. 
o 10767 { For the File Server project, the CPU state table pointer [( cst_p ) will 
© 10768 { be passed as NIL when called (asynchronously) by the server procedure 
© 10769 { PROCESS _READ_FOR_SERVER. Also, the stxe_p is NIL in this case. 
© 10770 [errr te err mem tt em me ee ee ee ee ee ee me ee ee 
Oo 10771 
© 10772 {! make sure all possible status values are in the CASE statement in pr_pf. 
Oo 10773 
© 10774 
Oo 10775 
© 10776 PROCEDURE [XDCL] mmp$page_pul11 
© 10777 ( xSva: ost$system_virtual_address; 
© 10778 fde_p: gft$locked file _desc_entry_p; 
Oo 10779 cst_p: Aost$cpu_state_table; 
© 10780 aste_p: Ammt$active segment _table_ entry; 
Oo 10781 stxe_p: Ammt$segment_ descriptor extended; 
© 10782 io_id: mmt$io_identifier ; 
© 190783 pages _to_read: integer ; 
© 10784 io function: iot$io function; 
o 10785 allocate if new: boolean; 
© 10786 VAR page_count: mmt$page_frame_index; 
© 10787 VAR pstatus: mmt$page_pull_ status; 
© 10788 VAR pfti: mmt$page_frame_index) ; 
o 10789 
© 10790 VAR 
Oo 10791 active _au_offset: integer, 
o 10782 assigned_page_ count: mmt$page_frame_index, 
© 107893 bytes _ to_read: integer, 
o 10794 buffer descriptor: mmtS$buffer descriptor, 
Oo 10785 sva: ost$system_virtual_address, 
© 10796 file _limits_enforced: sft$file space_limit_kind, 
© 10797 file kind: gft$file kind, 
o 10798 low _on_page_frames: boolean, 
o 10799 next _pfti: mmt$page_frame_index, 
oO 10800 shadow _au_offset: integer, 
© 10801 page _ status: gft$page_status, 
Oo 10802 pages _to_allocate: integer, 
© 16803 passive fde_p: gft$locked_file_desc_entry_p, 
Oo 10804 ijlo: jmt$ijl_ordinal, 
Oo 10805 status: syt$monitor_ status, 
© 1060806 update_eoi_ reason: mmt$update_eoi_reason; 
oO 10807 
© 10808 page _ count := 0; 
4 10809 pfti := 0; 
4 160810 SVva : = xSvVa; 
46 10811 Sva.offset := (sva.offset DIV osv$page_size) * osv$page_size; 
4 10812 
4 10813 { Previously page_pull first called #HASH_SVA to determine if the page was aiready in the page table. 
4 10814 { 1f found the valid bit was checked. If valid a status of ps _valid_in_pt was returned. If not valid, 
4 10815 { the page was checked for I0 activity and a status of Ps_locked was returned if it was locked. Finally, 
4 10816 { If not lecked for 10, the page was moved to the JWS from one of the available queues. Now the HASH is done 
4 10817 { via the inline proc mmp$page_pull_hash_sva which must be called before calling mmp$page_ pul}. 
4 1060818 
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{A new page frame is required. If the system is running low on memory and the requesting task is not a 
{system task, reject the request. This will cause the user to be put in a WAIT state. 
{For a served file fault, just check low on memory. ; 
lTow_on_page_frames := mmv$reassignable_page_frames.now < mmv$aggressive_aging level_2; 
IF low_on_page_frames AND ((cst_p = NIL) OR (cst_pA.xcb_p4.system_table_lock_count < 256) AND 
NOT cst_pA.xcb_pA.critical_task) THEN 
pstatus := ps_low_on_memory; 
RETURN; 
IFEND; 
{ Check for reference beyond EOI if user does not have EXTEND permission. 
IF (Sva.offset >=: fde_pA.eoi_byte_ address) AND (cst_p <> NIL) AND 
((stxe_p4.access rights <> mmc$sar_write_extend) OR NOT allocate_if_new) THEN 
IF stxe_pA.access_ rights = mmc$sar_modify THEN 
pstatus := ps_mo_extend permission; 
ELSE 
pstatus := ps_read_ beyond _eoi; 
IFEND; 
RETURN; 
IFEND ; 
{ Check for reference beyond file limit. Note: during deadstart, a reference beyond 
{ EOI may be for the memory resident portion of the oid image file. 
IF sva.offset >: fde pA. file _ Timit THEN 
IF (mmv$image_file.active) AND laste _ pA.sfid = mmv$image_file.sfid) THEN 
process_memory_image_ pf (sva, aste_p, pfti, pstatus); 
page count := 1; 
ELSE 
pstatus := ps_beyond_file_limit; 
RETURN; 
IFEND; 
IFEND; 
{ Determine limits options. Served files always have a NIL cst_p and require no 
{ limits checking. 
IF cst_p = NIL THEN 
ijlo := jmv$null_ijl_ordinal; 
file limits _ enforced := sfc$no_Timit; 
ELSE 
ijlo :5 cst_pAr.ijl_ordinal; 
file _lTimits enforced :: stxe_ pA.file limits enforced; 
IFENO; 
{ Determine the status/location of the page. 
CASE fde_pA.media OF 
= gfc$fm_transient_ segment = 
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IF [(aste_p%.pages_in_memory > mmv$max_pages_no_file) AND NOT 
((aste_pA.queue_ id = mmec$pq_ wired) OR (aste_pr%.queue_id = mmc$pq_job_fixed)) THEN 
set_assign_active (stxe_p, sva.offset) ; 
tmp$set_monitor_ flag (cst_pA.taskid, mmc$mf_segment_mgr_flag, status); 
IFEND ; 
page_status := gfc$ps_page_doesnt_ exist; 
= gfc$fm_mass_ storage file =: 
IF cst_p <> NIL THEN 
mmv$ last segment _accessed :: (#OFFSET (#LO0C (stxe_p4)) - cst_p4.xcb_p”.sdtx_offset) DIV 
#SIZE (mmt$segment_descriptor_extended) ; 
IFEND ; 
dmp$fetch_page_ status (fde_p, sva.offset, file _limits_enforced, allocate_if_ new, page status) ; 
= gfc$fm_served_ file = 
dfp$fetch page status (fde_p, Sva.offset, page status); 
ELSE 
mtp$error_ stop (’MM - bad FDE.MEDIA’); 
CASEND; 
{ If job mode work is required but the task is in some state where it is not advisable 
{ to interrupt it, allow escaped allocation to occur. Otherwise reject the page fault 
{ and let the task fix the problem in job mode before assigning the page. 
IF (page_status = gfc$ps_job_mode_ work required) AND (cst_p <> NIL) THEN 
set_assign_active (stxe_p, sva.offset) ; 
IF (cst_p4.xcb_ pA.system_table lock count > 255) AND (cst_p4.xcb_pA.xp.p_register.pva.ring > 1) THEN 
cst_pA.xcb_ pA.stic_allocation := TRUE; 
ELSE 
tmp$set_monitor_ flag (cst_pA.taskid, mmc$mf_segment_mgr_flag, status); 
IFEND; 
IF (cst_pA.xcb pA.xp.trap_enablie <> osc$traps_enabled) OR (cst_p4.xcb_pA.xp.p_register.pva.ring = 1) OR 


—pelosc$trap_exception IN cst_pA.xcb_pA.xp 
-(fde_pA.stack_ for ring-<> "Oh OR (cst_pA 
page status := gfc$ps' page doesnt exist; 
IFEND; * 
IFEND; 


{Process page fault depending on the 


CASE page _ status OF 
= gfc$ps_page_on_disk, gfc$ps_page_on_server = 
IF NOT low_on_page_frames THEN 
bytes to read := (fde_ pA.allocation_unit_si 


-monitor_condition_register) OR 
.xcb_pA.system_table_lock_ count > 255) THEN 


location of the page. 


ze - (sva.offset MOD fde_pA.allocation_unit_size)); 


IF sva.offset + bytes to_read > fde_pA.eoi_byte_ address THEN 


bytes to read := 
IFEND; 
page _ count := bytes to read DIV osv$page_si 
IF page count > pages to_read THEN 
page count := pages _to_ read; 
IFEND; 
ELSE 
page _ count := 
IFEND; 


fde_pA.eoi_byte_address 


1; 


read_pages_from_disk_or_server (io function, 


- Ssva.offset + osv$page size - 1; 


ze; 


fde_p, sva, page_count, aste_p, sva.offset, io_id, FALSE, 
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MMPSPAGE_ PULL 


46A 10931 pstatus, pfti); 
46A 10932 
464A 10933 = gfc$ps_job_mode_work_required = 
&6A 10934 mmp$update_eoi (fde_p, sva.offset, mmc$uer_ page_assigned) ; {Needed so job mode knows adr to allocate} 
494 10935 pstatus := ps_job_work required; 
4A2 10936 
4A2 10937 = gfc$ps_volume_unavailable = 
4A2 10838 IF fde_pA.flags.wire_eoi_page AND (sva.offset >= fde_p4.eoi_byte_address) THEN 
4BE 10939 mmpSassign_page_frame (sva, aste_p, 1, 0, page_count, pfti, pstatus) ; 
4EE 10940 IF pstatus = ps_done THEN 
4F6 10941 mmp$preset_real_memory (sva, fde_pA.preset_value) ; 
SOE 10942 mmv$pt_pA [mmv$pft_pA [pfti].pti].v :+ TRUE; 
SOE 10943 pstatus :5 ps_new_page_ assigned; 
50E 10944 mmp$update_eoi (fde_p, sva.offset, mmc$uer_page_ assigned); 
562 10945 IFEND; 
566 10946 ELSE 
566 10947 pstatus := ps_volume_unavailable; 
570 10948 IFEND; 
572 10949 
572 10950 = gfc$ps_server_allocate_ required = 
572 10951 
572 10952 mmp$assign_page_frame (Sva, aste_p, 1, 0, page count, pfti, pstatus) ; 
5A4 10953 IF pstatus = ps_donme THEN 
SAC 10954 mmpSpreset_real_memory (sva, fde_pA.preset value) ; 
5c4 10955 pstatus := ps_allocate_required_on_server; 
5C4 10956 IF pages_to_read < mmv$pages_for_overallocation THEN 
508 10957 pages _to_allocate := mmv$pages_for_overallocation; 
5bDc 10958 ELSE 
spc 10959 pages to allocate :: pages _to_read; 
5DE 10960 IFEND; 
SDE 10961 buffer descriptor .buffer_ descriptor type := mmc$bd_paging_io; 
SDE 10962 buffer _descriptor.sva := Sva; 
SDE 10963 buffer _descriptor.page count := page count; 
SDE 10964 dfp$file_server_allocation (aste_p4.sfid, sva.offset, (pages_to_allocate * osv$page_size) + 
644 10965 Sva.offset, io_id, buffer descriptor, stxe_pA.file_ limits _enforced, status); 
644 10966 IF status.normal THEN 
64C 10967 mmp$update_eoi (fde_p, sva.offset, mmc$uer_page_assigned) ; 
66C 10968 RETURN; {<----]} 
672 10969 ELSEIF (status.condition = dme$transient_error) OR (status.condition = ioe$requests_ full) THEN 
68A 10970 pstatus := ps_io_temp_ reject; : 
694 10971 ELSEIF status.condition = ioe$unit_disabled THEN 
6sc 109372 pstatus := ps_volume_unavai lable; 
646 10973 ° ELSEIF status.condition = dfe$server_has_terminated THEN 
6AE 10974 pstatus :=> ps_server_terminated; 
6BA 10975 ELSE 
6BA 10976 mtp$error_stop (’MM - unexpected phy io error’); 
606 10977 IFEND; 
6D& 10978 mmp$delete pt_entry (pfti, TRUE); 
GEE 10979 mmp$relink page _frame (pfti, mmc$pq_ free) ; 
706 10980 IFEND; 
708 #10981 
708 10982 = gfc$ps_temp_reject, gfc$ps_account_limit exceeded = 
708 #10983 pstatus :=5 ps_io_temp_ reject; 
714 10984 
714 #10985 = gfc$ps_server_terminated = 
714 10986 pstatus := ps_server_terminated; 
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e 


MMPSPAGE PULL 


722 10987 


722 10988 = gfc$ps_page_doesnt_exist = 

722 #10989 

722 10990 { For page not on server, the file cannet be shadowed. This applies where 

722 10991 { the active file is om the server. 

722 10992 { The pointer to the CPU_STATE_ TABLE will always be non-nil on the client side of file_server. 
722 10993 

722 10994 IF (stxe_p, = NIL) OR (Stxe_p4.shadow_info.shadow_segment_kind = .mmc$ssk_none) OR 

750 10995 (sva.offset >: (stxe_p%.shadow_info.shadow_length_page_count * osv$page_size)) THEN 


750 10996 


750 1093937 { Determine if multiple pages should be assigned for this "new page" page fault. 

750 10998 { The numbers 32768 and 16384 are arbitrary. Files less then 32768 are not as likely 

750 10999 { to use the extra assigned pages. Offset MOD 16384 is because most allocation units 

750 11000 { are 16384. This fault would then probably be for the first page in the AU. 

750 11001 

750 11002 pages _to_ allocate := 1; 

750 11003 ——— 

750 11004 IF (Sva.offset >: 32768) AND ((sva.offset MOD 16384) = ©) AND \ 1 Y i 
7B6 11005 (fde_pA.media <> gfc$fm_transient_ segment) AND | 

7B6 11006 (fde_pA.file_kind <> gfc$fk_device_file) AND oe 

7B6E 11007 (mmv$reassignable page _frames.now > mmv$assign_multiple_ pages) AND T i } 

7B6 11008 (mmv$pages_per_new_page_ fault > 1} AND : 

7B6 11009 } 

7B6 11010 { Check if assignment of extra pages will fit into allocated space. Per seals | Lf 
7B6 11011 a Wee i . 
7BE 11012 (fde_pA.allocation_unit size - (sva.offset MOD fde_pA.allocation_unit_size) >=: ~ : : ; 
7B6 11013 mmv$pages_per_new_page_fauit * osv$page_size) THEN t 

7B6 11014 pages _to_ allocate := mmv$pages_per_new_page_ fault; : i : 

7BA 11015 IFEND; ; : H 

7BA 11016 ee ee 

7BA 11017 mmp$Sassign_page_ frame (sva, aste_p, pages_to_allocate, ©, page_count, pfti, pstatus); , 

TEA 11018 | 

TEA 11019 IF page _count > © THEN 
TJF2 116020 next pfti := pFfti; : 
7F2 11021 WHILE next _pfti <> © DO : { | i 
7FA 11022 IF (fde_pA.stack_for_ring = 0) OR (fde_pA.stack_for_ring > 3) THEN , : { 4 
808 11023 mmp$preset real_memory (sva, fde_pA.preset_vaiue}) ; ! re vi 
820 11024 IFEND; i sad | V “ 
820 11025 mmv$pt_pA [mmv$pFft_pA [next _pfti] .pti].v := TRUE; oF ee ma 

820 11026 next pfti := mmvSpft_ pA [next _pfti]. link. bkw; 

820 11927 IF next _pfti <> © THEN 

854 11028 Sva.offset := sva.offset + osv$page_size; 

868 11029 IFEND; aR 

868 11630 WHILEND; , 

&86C 11031 pstatus := ps_new_page_ assigned; 

86C 11032 IF pages to allocate > 1 THEN 

87A 11033 update eoi_reason := mmc$uer_multiple_ pages assigned; 

88O 11034 ELSE 

880 11035 update eoi_reason := mmc$uer page assigned; 

882 11036 IFEND; 

882 11037 mmp$update_eoi (fde_p, sva.offsat, update_eoi_reason) ; 

8E4 11038 IFEND; 

8E8 11039 

8E&8 11040 ELSE 

8E8 11641 


8E8 11042 { The page is shadowed by another file and the page resides on the shadow file. 
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rae en Sy re 


{ 


If shadow is by segment number then assign pages for the transfer unit and set the ‘m’ 

in the page table. Put the source and destination pva into the xcb along with the 
page count for the transfer. Set the monitor flag, mmc$mf_ shadow _file_ reference, so that 
mmp$mfh_ shadow _file reference will be called to copy the data. Otherwise initiate 1/0 to 
read the transfer unit containing the page from the shadow file and set the ‘m’ bit in the 
page table entry for each page. 


active_au_offset :: (sva.offset DIV fde_pA.allocation_unit_size) * fde_pA.allocation_unit_size; 
shadow _au_offset = (stxe_pA.shadow_info.shadow_start_page number * osv$page_size) + active _au_offset; 


gfp$mtr_get_leocked fde_p (stxe_pA.shadow_info.shadow_sfid, cst_p4.ijle_p, passive_fde_p); 
sva.offset :=> active _au_offset; 


bytes _ to read := stxe_p4%.shadow_info.shadow_length_page_ count * osv$page size - active _au_offset; 
IF bytes _ to_read > fde_pA.allocation_unit_size THEN 

bytes _to_read := fde_ pr.allocation_unit size; 
IFEND; 


page count := bytes to_read DIV osv$page_size; 


If the job is able to take a trap and copy the pages from the passive segment, send a 


{ flag to the job to do this. 


IF (cst_pA.xcb_ pA.xp.trap_ enable = osc$traps_ enabled) AND 
(cst _p%.xcb_p%.xp.p_register.pva.ring > 1) AND (stxe_pA.shadow_info.shadow_segment_kind = 
mmc$ssk_segment_number) THEN 
mmpSassign_page_ frame (Ssva, aste_p, page_count, Oo, assigned _page_ count, pfti, pstatus); 


IF (assigned _page_count = page_count) THEN 
pstatus := ps _riew_page_assigned; 


mext pfti :5 pFfti; 
WHILE mext pfti <> © DO 
mmv$pt_ pA [mmv$pft_ pA [next _pfti].pti].v := TRUE; 
mmv$pt_pA [mmv$pft_pA [mext_pfti].pti].m :: TRUE; 
next pfti := mmv$pft_pA [next pfti] . link. Dkw; 
WHILEND; . 
_mmp$update_eoi (fde_p, sva.offset + bytes_to_read - osv$page_ size, mmcS$uer_page_assigned) ; 
,CSt_pA.xcb_pA.shadow_reference_info.source pva := 
; #ADDRESS (1, stxe_pA.shadow_info.shadow_segment_number, shadow_au_offset}; 
cst _pA.xcb_p4A.shadow_ reference info.destination_pva := 
#ADDRESS (1, fde_ pA. last _segment_number, sva.offset); 
ecst_pA.xcb_ p4.shadow_reference_info.page count := page count; 
tmp$set_monitor_flag (cst_pA.taskid, mmc$mf_shadow_file_reference, status) ; 
ELSE 


{ Not all pages assigned. Release those that were. 


WHILE pfti <> oO DO 
mmp$delete_pt_entry (pfti, TRUE); 
next pfti := mmv$pft_pA [pfti] . link. Bkw; 
mmp$retink_page_frame (pfti, mmc$pq_ free) ; 
pfti := mext_pfti; 

WHILEND; 
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{ 


IFEND; 


If the job cannot trap or if the file is not shadowed by segment number, issue 


{ the IO requests to read the pages. 


ELSE 
‘read_pages_from_disk_or_server (io function, passive _fde_p, sva, page_count, aste_p, 
: shadow_au_offset, io_id, TRUE, pstatus, pfti); 


IF (pstatus = ps_found_on_disk) OR (pstatus = ps_found_on_server) THEN 
mext pfti :5 pfti; 
WHILE mext_ pfti <> © DO 
mmv$pt_p* [mmv$pFft pA [next _pfti] .pti].m :2 TRUE; 
next pfti := mmv$pft_pA [next_pftil]. link. bkw; 
WHILEND; 
-mmp$update_eoi (fde_p, sva.offset + bytes _ to_read - osv$page_size, mmce$uer_ page assigned) ; 
IFEND; 
IFEND; 


IFEND; 


mtp$error_ stop (’mm - unexpected DM error’); 
CASEND; 


PROCEND mmpSpage_pull; 
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Oo 11126 
0 11127 PROCEDURE read_pages_from_disk_or_ server 
oO 11128 ( io_function: iot$io_function; 
© 11129 fde_p: gftS$locked_ file desc entry _p; 
© 11130 sva: ost$system_virtual address; 
Oo 11131 page_count: mmt$page_frame_index; 
© 11132 aste_p: Ammt$active_segment _table_entry; 
oO 11133 File _ offset: integer ; 
Oo 11134 io_id: mmt$io_identifier; 
oO 11135 all_requested meeded: boolean; 
© 11136 VAR pstatus: mmt$page_pull_ status; 
© 11137 VAR pfti: mmt$page_frame_index) ; 
Oo 11138 
o 11139 VAR 
oO 11140 buffer descriptor: mmt$buffer descriptor, 
Oo 11141 assigned _page_count: mmt$page_frame_index, 
Oo 11142 next pfti: mmt$page_ frame_index, 
© 11143 status: syt$monitor_ status; 
© 11144 
o 11145 
© 11146 { Assign the page frame for the incoming page. 
o 11147 
© 11148 mmp$assign_page_ frame (sva, aste_p, page_count, 90, assigned page _ count, pfti, pstatus); 
32 11149 
32 11150 IF (assigned_page_count > ©) AND ((assigned_page_ count = page count) OR NOT all_requested_ needed) THEN 
46 11151 buffer _ descriptor .buffer_descriptor_type := mmc$bd_paging_io; 
46 11152 buffer descriptor.sva := sva; 
46 11153 buffer _descriptor.page_ count :* assigned_page_ count; 
46 11154 IF fde_pA%.media = gfc$fm_mass_storage file THEN 
60 11155 iop$pager_io (fde_p, file_offset, buffer_descriptor, assigned _page_count * osv$page_ size, io_function, 
SA 11156 io_id, status); 
8A 11157 pstatus := ps_found_on_disk; 
A4 11158 
44 11159 ELSE 
A4 11160 dfp$server_io (fde_p, ioc$read_ page, file_offset, assigned _page_count * osv$page_size, io_id, 
DE 11161 buffer descriptor, status) ; 
DE 11162 pstatus := ps_found_on_server ; 
E4 11163 IFEND; 
E4 11164 IF status.normal THEN 
Ec 11165 RETURN; 
F2 11166 ELSEIF (status.condition = dme$transient_error) OR (status.condition = ioe$requests_ full) THEN 
10A 11167 pstatus := ps_io_temp_reject; 
114 11168 ELSEIF status.condition = ioe$unit disabled THEN 
11€ 11169 pstatus := ps_volume_unavai lable; 
126 11170 ELSEIF status.condition = dfe$server_has_terminated THEN 
12E 11171 pstatus := ps_server terminated; 
134 11172 ELSE 
134 11173 mtp$error_ stop (‘MM - unexpected phy io error’); 
156 11174 IFEND; 
156 11175 IFEND; 
156 11176 
156 11177 { Not enough frames. Delete the page table entries for the ones just found. 
156 11178 
186 11179 WHILE pfti <> oO DO 
164 11180 mmp$delete pt_entry (pfti, TRUE); 
170 11181 next pfti := mmv$pft_ pA [pfti]. link. Dkw; 
& 
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170 11182 mmp$relink_page_frame (pfti, mmc$pq_free) ; 
1BO0 11183 pfti := mext_pfti; 
1BO 11184 WHILEND; 
1B8 11185 
1B8 11186 PROCEND read_pages_from_disk_or_server ; 


SOURCE LIST OF mmm$page_fault_ processor NOS/VE CYBIL/II 1.0 89162 1989-08-21 13:33:34 
PROCESS MEMORY _IMAGE_PF 
o 11189 
o 11190 PROCEDURE process memory, image_pf 
o 11191 ( sva: ost$system_virtual_ address; 
o 11132 aste_p: Ammt$active_ segment _table_ entry; 
© 11193 VAR pfti: mmtS$page_frame_index; 
o 11194 VAR pstatus: mmt$page_pull_status) ; 
Oo 11195 
Oo 11196 VAR 
© 11197 mpt_status: mmt$make_pt_entry status, 
o 11198 pfte_p: Ammt$page_ frame _table_ entry; 
o 11199 
© 11200 IF (((sva.offset - mmv$image_file.file_offset) + osv$180_memory_limits.1lower) DIV osv$page_size) > 
34 11201 UPPERVALUE (pfti) THEN ~ 
34 11202 pstatus := ps_beyond file_limit; 
34 11203 pfti :: 0; 
34 11204 RETURN; {<----} 
42 11205 IFEND; 
42 11206 
42 11207 pfti := ((sva.offset - mmv$image_file.file_offset) + osv$18O_memory_limits.lower) DIV osv$page_size; 
42 11208 pfte_p := AmmvS$pft_pA [pFftil]; 
42 11209 pfte pr.age := 0; 
42 11210 pfte pA.cyclic_age :=: 0; 
42 11211 pfte pArA.sva := sva; 
42 11212 pfte_pArA.aste_p := aste_p; 
42 11213 pfte_ pr. locked page := mmc$1p_aging lock; 
42 11214 pfte pAr.ijl_ordinal := jmv$system_ijl_ordinal; 
42 41215 
42 11216 mmp$make_ pt_entry (sva, pfti, aste_p, pfte_p, mpt_status) ; 
C4 11217 
C4 11218 IF mpt_status = mmc$mpt_done THEN 
cc 11219 mmv$pt_pA [mmv$pFft_pA [pfti] .pti].v :=+ TRUE; 
cc 11220 pstatus := ps_found_in_avail; 
100 11221 ELSEIF mpt_status = mmc$mpt_page_ table full THEN 
104 11222. pstatus : = ps_pt_ full; 
104 11223 mmv$async_work.pt_full_aste_p := aste_p; 
104 11224 mmv$async_work.pt_ full sva :: sva; 
104 11225 mmv$S$async work.pt_ full := TRUE; 
104 11226 mmv$time_to_cali_mem_mgr := 0; 
104 11227 osv$time_to_check_asyn := 0; 
128 11228 ELSE 
128 11229 mtp$error stop (’MM - error in processing memory image pf’); 
148 11230 IFEND; 
148 11231 
148 11232 PROCEND process _memory_image_ pf; 
© 11233 
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PR PF - Primary entry point for PF processing 
o 11236 
© 11237 [e-em eet ee re re ee et eee ROPER Se RS RS RS SR RS Se Ss See Se Se See, SSS eS eee Soe ames Shee le Sere ie a a a a a ss! 
© 11238 {Name: 
© 11239 { pr_pf 
© 11240 {Purpose: 
o 11241 { This routine is called hy monitor to process a page fault. 
© 11242 {Input: 
o 11243 { none 
© 11244 {Output: 
o 11245 { none 
© 11246 {Error Codes: 
oO 11247 { none 
© 11248 [orem re rrr re re ee ee ee ee ee ee eee se 
o 11249 
o 11250 
0 11251 
© 11252 PROCEDURE [XDCL] pr_pf 
© 11253 ( dummy: Aceltl; 
0 11254 cst_p: Aost$cpu_state table) ; 
o 11255 
oO 11256 
o 11257 TYPE 
o 11258 trick ptr = record 
© 11259 case boolean of 
o 11260 = TRUE = 
o 11261 pva: ost$pva, 
o 11262 = FALSE = 
o 11263 p: Acell, 
Oo 11264 casend, 
© 11265 recend; 
© 11266 % 
o 11267 VAR 
© 11268 aste_p: AmmtSactive_segment_table_entry, 
© 11269 check aio slowdown: boolean, 
0 11270 count: 1... 32, 
o 11271 cptime: ost$cp_time_value, 
© 11272 faulted tu: integer, 
© 11273 fde_p: gft$locked file _desc_entry p, 
o 11274 file Timit: integer, {must be integer} 
0 11275 found: boolean, 
Oo 11276 gtid: AO .. OF FFFEFF( 16), 
oO 11277 i: integer, 
o 11278 ipti: integer, 
o 11279 ijle_p: Ajmt$initiated job _list_entry, 
Oo 11280 io _id: mmt$io_identifier, " 
Oo 11281 keypoint page fault status: mmt$keypoint page fault status, 
Oo 11282 last faulted tu: integer, 
© 11283 last_page fault: ost$segment_offset, 
o 11284 meount: integer, 
0 11285 monitor fault: ost$monitor fault, 
0 11286 nominal page fault: boolean, 
Oo 11287 null_utp: [STATIC, READ] ost$pva := [1, Of FF(16), TEFFFEFFFE( IE) I, 
Oo 11288 OFF: integer, 
o 11288 page count: mmt$page_frame_index, 
o 11290 page_streaming available page: boolean, 
o 11291 pages pulled: integer, 
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PR_PF - 


ProroeP_COCONOOCNOOOCOCOCOOCOCO OOOO oOeCoOao0 000 


SOQURCE L 


PR_PF - 
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1292 pages _ toe be _ pulled: integer, 

1293 pages to read: integer, 

1294 pfti: mmtS$page_frame_index, 

1295 pfti_of_ faulted _ page: mmt$page_frame_index, 
1296 pstatus: mmt$page_pull_status, 

1297 pstatus_of faulted page: mmt$page_pull_status, 
1298 pyva: trick _ ptr, 

12998 recount: integer, 

1300 relative transfer_unit: integer, 

1301 sac_p: Ammt$segment_access_ condition, 
1302 seg: integer, 

1303 ste_p: Ammt$segment_descriptor, 

1304 streaming transfer _pages: integer, 

1305 streaming transfer_unit: integer, 

1306 stxe_p: Ammt$segment_descriptor extended, 
1307 sva: ost$system_virtual_address, 

1308 Sva_current: ost$system_virtual_address, 
1309 Sva_start: ost$segment_offset, 

1310 transfer_unit_ count: integer, 

1311 tu_to_ stream: integer, 

1312 xsva: ost$system_virtual_ address, 

1313 xpfti: mmt$page_frame_index; 

1314 

1315 

1316 io_id.specified := FALSE; 

1317 


1318 {Use a special routine f 


IF NOT mmv$tables_in 


or page faults which occur during deadstart. 


itialized THEN 
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1321 pf_proc_tabies_not_initialized (cst_p4.xcb_p) ; 

1322 RETURN ; 

1323 IFEND ; 

1324 

1325 { Process page fault on keypoint segment separate from other page faults 

1326 

1327 IF (cst_pA.xcb_ pA.xp.untranslatable pointer.seg = osc$kpt_pva_segment) THEN 

1328 osp$process_ keypoint_page_fault (cst_pA.xcb_pA.xp.untranslatable_ pointer .offset, 
1329 keypoint_page_fault_ status) ; 

1330 CASE keypoint_page_fault_ status OF 

1331 

1332 = mmc$kpfs_ normal = 

1333 RETURN; 

1334 

1335 = mmc$kpfs_ disable _keypoints = 

1336 cst_pA.xcb_pA.xp.p_register.pva.offset := cst_pA.xcb_pA.xp.p_ register .pva.offset + 4; 
1337 RETURN; 

1338 

1339 > mmc$kpfs_invalid_keypoint = 

1340 


1341 { Do nothing; subsequent 
1342 

1343 ELSE 

1344 CASEND; 

1345 IFEND; 

1346 


nee See Se ae Se ee ee ee ee ee ee ee ee ee” ee ee eee ee ee ee ee) 
—_ 


page fault processing will reject with an access violation. 


1347 {Get the PVA that caused the page fault from the exchange package of the current user task and convert it to 
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11348 {an SVA. 

11349 

11350 pva.pva := cst_pA.xcb_ pA.xp.untranslatable pointer ; 

11351 #KEYPOINT (osk$mtr, osk$monitor multiplier * pva.pva.seg, mmk$page_fault); 
11352 IF syv$perf_keypoints_enabled.memory keypoints THEN 

11353 #KEYPOINT (osk$performance, osk$m * pva.pva.seg, ptk$page_ fault segment) ; 
11354 seg := cst_pA.xcb_p4A.xp.p_register.pva.seg; 

11355 #KEYPOINT (osk$performance, osk$m * seg, ptk$page_fault_p_segment ) ; 
11356 OFF :: cst_pA.xcb_ p%.xp.p_register.pva.offset MOD 100000(16}); 

11357 #KEYPOINT (osk$performance, osk$m * OFF, ptk$page_fault_p_tower_offset); 
11358 OFF := cst_pA.xcb_p%.xp.p_register.pva.offset DIV 100000(16); 

113598 #KEYPOINT (osk$performance, osk$m * OFF, ptk$page_fault_p_upper_offset); 
11360 gtid := #LOC (cst_pA.xcb_pA.global_task_id); 

11361 #KEYPOINT (osk$performance, osk$m * gtid’, ptk$page_fault_gtid) ; 

11362 OFF := pva.pva.offset MOD 100000(16); 

11363 #KEYPOINT (osk$performance, osk$m * OFF, ptk$page_fault_lower_offset); 
11364 OFF := pva.pva.offset DIV 100000(16); 

11365 #KEYPOINT (osk$performance, osk$m * OFF, ptk$page_fault_upper offset) ; 
11366 IFEND; 

11367 

11368 mmp$convert_pva (pva.p, cst_p, sva, fde_p, aste_p, ste_p, stxe_p); 

11369 

11370 ijle_p := cst_pA.ijle_p; 

11371 IF aste_p = NIL THEN 

11372 faulted tu := 0; 

11373 page_count := 0; 

11374 pstatus := ps_read_ beyond eoi; 

11375 ELSEIF stxe_pA.access_ state <> mmc$sas_allow_access THEN 

11376 IF stxe pA.access_ state = mmc$sas_inhibit_access THEN 

11377 mmv$refs to unrec_df_ file inhib := mmv$refs to_unrec_df_file_inhib + 1; 
11378 pstatus :* ps_volume_unavai labile; 

11379 ELSEIF stxe_pA.access_ state = mmc$sas_terminate_access THEN 

11380 mmv$refs_to_unrec_df_ file_term := mmv$refs_to_unmrec_df_file_ term + 1; 
11381 pstatus := ps _ server terminated; 

11382 IFEND; 

11383 faulted tu = 0; 

11384 page count = 0; 

11385 ELSE 

11386 

11387 streaming transfer pages :5 

11388 #SHIFT (1, stxe_pA.stream.transfer_ size) ; 

11389 streaming transfer_unit := streaming transfer pages * osv$page_size; 
11390 faulted tu := sva.offset DIV streaming transfer _unit ; 

11391 last_page_fault := stxe_ pA.stream. last page fault; 

11392 Stxe_pA.stream. last _page fault := Sva.offset; 

11383 last_faulted_ tu := last _page fault DIV streaming transfer unit; 

11394 relative _transfer_unit.:=5 faulted tu - last_faulted tu; 

11395 

11396 /find_the_page/ 

11397 BEGIN 

11398 . 

11339 mmp$page_pull_hash_sva (sva, aste_p, page_count, pstatus, pfti); 
11400 


11401 { If the page was found, 


11402 { or stream mode. If the page is not found or if the segment is in a stream mode, 


the code below will exit /find the _page/ quickly 


if the segment 


11403 { pfti will be used later to determine if a call to mmp$page_ pull is necessary. Segments 


is not in prestream 


page count, pstatus, and 


in a stream mode do 
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36E 11404 { not attempt the quick exit because: A) If an available page is found, the stream code will pull another 

SSE 11405 { page. B) If a locked/valid page is found, a segment in stream mode may need to read another transfer unit. 

36E 11406 

S36&E 11407 

S6E 11408 nominal page _ fault := TRUE; 

36E 11409 - 

36E 11410 { To detect sequential processing of a segment, the segment is logically divided into page streaming transfer 

36E 11411 { units. If a@ page fault is either in the same transfer unit or in the next transfer unit then it is 

36E 11412 { considered to be sequential processing. Prestream mode is entered when the number of consecutive page 

36E 11413 { faults that appear to be sequential exceeds the mmv$page_streaming prestream. In prestream mode the 

36E 11414 { pages from the current page fault to the end of the transfer unit will be pulled. Once we get to 

36E 11415 { page streaming mode the process will keep 10 requests outstanding to read the pages from the current 

36E 11416 { transfer unit plus read ahead one or more TU (tetal number of TU read = mmv$page_streaming reads) 

36E 11417 { The code below checks the prestream threshold, counts sequential accesses, determines if the current page 

36E 11418 { fault is to be considered sequential, and either continues or terminates the sequential process. 

S36E 11419 

36E 11420 IF stxe_pA.stream.sequential_accesses < mmv$page_streaming prestream THEN 

382 11421 IF (relative transfer _unit < ©} OR (relative_transfer_unit > 1) THEN 

38C 11422 Stxe_pA.stream.sequential_accesses :: 1; {Reset counter, count current fault as first fault 

394 11423 ELSE 

3934 11424 Stxe_pA.stream.sequential_ accesses :: stxe_pA.stream.sequential_accesses + 1; 

3A0 11425 IFEND; 

3A0 11426 IF page count = 1 THEN 

3A8 11427 EXIT /find_the_page/ ; 

3AC 11428 IFEND; 

3BO0 11429 

3B0 11430 ELSE {prestream mode or stream mode} 

3BO0 11431 

3B0 11432 { The segment is in prestream or stream. If it is very well behaved the relative transfer unit will be 

380 11433 { equal to zero or one. If zero, do not increment the sequential accesses count since a fault has already 

3B0 11434 { occurred in this TU. (The algorithm to switch to page streaming mode assumes each fault after prestream 

3B0 11435 { mode is entered is equal to a transfer_unit of data) If one, increment the sequential accesses count. 

380 11436 { For the special cases listed below, continue but don’t increment the sequential count, wait for 

3B0 11437 { confirming sequential faults before going to page streaming mode. the special cases: 

3B0 11438 { a) Faulted_tu = 0; A fault in the first transfer unit. Since the last fault was ina higher TU, a fault 

3BO0 11439 { in TUSO may indicate a rewind of the file. 

3BO0 11440 { b) Relative Transfer_Unit greater than one but tess than mmv$page_ streaming readstt ; If in prestream mode 

3BO 11441 { the task has skipped at least one transfer unit, In stream mode we are mot sure if it is 

3BO 11442 { normal or if a tranfer unit has been skipped. 

3B0 11443 { ¢) Preset Streaming; A special case to immediately enter page streaming mode. 

3B0 11444 { 

3B0 11445 { Note that nominal_page_ fault = TRUE 

3B0 11446 

3BO0 11447 IF relative transfer_unit = 1 THEN 

3B6 11448 nominal page fault := FALSE; 

3B86 11449 IF stxe_pA.stream.random_ faults > 0 THEN 

3C6 11450 stxe_pA.stream.random_faults := 0; 

3C6 11451 mmv$paging statistics.page_ streaming.random_faults := 

30A 11452 mmv$paging statistics.page streaming.random_faults + 1; 

3DA 11453 IFEND; 

3D4A 11454 IF (stxe_pA.stream.sequential_accesses < UPPERVALUE (stxe_pA.stream.sequential_accesses) } THEN 

SEA 11455 stxe_pA.stream.sequential accesses := stxe_ pA.stream.sequential_ accesses + 1; 

3FO 11456 IFEND; 

3F4 11457 

3F4 11458 ELSEIF (((relative_transfer_ unit >= ©) AND (relative_transfer_unit <= 

416 11459 (mmv$page_streaming reads + 1))) OR (faulted _tu = 0) OR (stxe_pA.stream.preset_streaming) ) 

‘ @ 
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416 11460 THEN 

416 11461 nominal _ page fault := FALSE; 

41E 11462 

41E 11463 { This fault is considered random because it is either prior to the transfer unit of the last fault or it is 

41E 11464 { in a TU that is more than mmv$page_streaming reads past the TU of the last fault. If in prestream mode 

41E 11465 { terminate prestream. If in page streaming mode, allow up to mmv$page_streaming random limit random faults. 

41E 11466 

41E 11467 ELSEIF NOT stxe_pA.stream.streaming THEN 

428 11468 

428 11469 {terminate prestream mode, count current fault as first fault 

&28 11470 

428 11471 mmv$paging_ statistics.page_ streaming.prestream_only :: 

428 11472 mmv$paging statistics.page streaming.prestream_only + 1; 

428 11473 stxe_pA.stream.sequential_accesses := 1; 

43c 11474 

43C 11475 ELSE {Page fault is in a transfer unit that is considered random, terminate if appropriate 

43C 11476 Sstxe_ pA.stream.random_ faults := stxe_pA.stream.random_ faults + 1; 

43C 11477 IF stxe_pA.stream.random_ faults < mmv$page_streaming random_limit THEN 

460 11478 

460 11478 { Doing nothing will suspend streaming for this fault 

460 11480 

460 11481 ELSE { Terminate Streaming 

460 11482 mmv$paging statistics.page streaming.terminated := 

460 11483 mmv$paging statistics.page_ streaming.terminated + 1; 

460 11484 stxe_pA.stream.sequential accesses :=: 1; 

460 11485 stxe_ pA.stream.random_ faults := 0; 

460 11486 Sstxe_ pA.stream.streaming := FALSE; 

480 11487 IFEND; 

486 11488 IFEND; 

48A 11489 IFEND; {prestream mode or stream mode} 

48A 11490 

48A 11491 

48h 11492 { If this page fault is to be processed via normal page fault processing nominal page _ fault will be TRUE. 

480A 11493 { Otherwise this fault will be processed as a page streaming fault in which one or more transfer units will 

484 11494 { be read. If page streaming, the first call to page pull is for the actual page that faulted. The status 

484 11495 { from that call must be saved so that the processing at the end can be determined by the page that faulted. 

48H 11496 { All page streaming calis that are reading ahead must not cause the allocation of a new page (we will wait 

484 11497 { to allocate until the task actually faults for the page) and if an error occurs it is just to terminate 

4808 11498 { this instant of read ahead without being processed as an error (again, if the task actually faults for the 

484 11499 { page that got an error, the error will be processed at that time) 

48A 11500 { Note that if the earlier call to mmp$page_pull_hash_sva found a page, page_count = 1 and pstatus 

48H 11501 { and pfti refer to that page. 

484 11502 

48A 11503 IF nominal_page fault THEN 

48E 11504 IF page_count = © THEN {call mmp$page_pull if the page was not found by mmp$page_pull_hash_sva 

436 11505 IF mmc$sa_read_transfer_unit IN stxe_pA.software attribute set THEN 

4A6 11506 pages_to_ read := streaming transfer_pages; 

4A6G 11507 IF stxe_pA.stream.sequential_accesses < mmv$page_ streaming prestream THEN 

4B4 11508 stxe_pA.stream.sequential_accesses := stxe_pA.stream.sequential_accesses + 1; 

4BA 11509 IFEND; 

4BE 11510 ELSEIF (ste _pA.ste.xp = osc$non_executable) OR (ste_pA.ste.wp <> osc$non_writable) THEN 

4D6 11511 pages to _read := mmv$read_tu_read_ write; 

4EO 11512 ELSE 

&Eo 11513 pages _ to read <°= mmv$read_tu_execute; 

&EG 11514 IFEND; 

4E6 11515 mmp$page_ pull (sva, fde_p, cst_p, aste_p, stxe_p, io_id, pages_to_read, ioc$read_ page, TRUE, 
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546 11516 page count, pstatus, pfti); 
546 11517 
546 11518 IF pstatus = ps_done THEN 
550 11519 mtp$error_stop (’MM - internal error-ps_done status from MMPS$PAGE PULL’); 
570 11520 IFENO; 
570 11521 IFEND; 
574 11522 
574 11523 ELSE {not a nominal page fault... read one or more transfer units 
574 11524 transfer _unit_count := 1; 
574 11525 IF stxe_ pA.stream.preset streaming THEN {segment has been preset to stream immediately 
586 11526 stxe_ pA.stream.preset streaming := FALSE; 
586 11527 IF NOT stxe_pA.stream.streaming THEN 
596 11528 mmv$paging statistics.page_ streaming.initiated := 
5A0 11523 mmv$paging statistics.page_streaming.initiated + 1; 
5A0 11530 IFEND; 
SAO 11531 stxe_ pA.stream.streaming : = TRUE; 
5A0 11532 transfer_unit count := mmv$page_streaming_reads; 
5BO 11533 
5BO 11534 ELSEIF relative transfer _unit <= © THEN 
5B4 11535 
5B4 11536 { Note, more than likely this fault is awaiting the disk completion of the second allocation unit within this 
5B4 11537 { transfer unit. The relative transfer unit would only be negative if this a fault in TU:O of the file while 
5B4 11538 { the file is in page streaming mode. 
5B4 11539 
5B4 11540 IF (sva.offset < last_page_fault) AND (relative_transfer_unit = ©) THEN 
5C6 11541 mmv$paging_statistics.page_ streaming.page faults _tu :: 
§Do0 11542 mmv$paging statistics.page_streaming.page_ faults_tu + 1; 
5DO 11543 IFEND ; 
5D6 11544 ELSE 
S506 11545 IF stxe_p4.stream.streaming THEN 
SEO 11546 IF (relative _transfer_ unit <= mmv$page_ streaming reads) THEN 
SE8 11547 transfer _unit_count := mmv$page_streaming reads; {normal streaming, read ahead 
SEC 11548 IFEND; 
SEC 11549 IF (relative_transfer_unit = mmv$page_streaming reads) THEN 
5F4 11550 mmv$paging statistics.page streaming.task_ slow := 
SFE 11551 mmv$paging statistics.page streaming.task_slow + 1; 
SFE 11552 IFEND; 
602 11553 ELSE {not yet streaming 
602 11554 tu_to_ stream := (mmv$page_streaming_ threshold DIV 
602 11555 streaming transfer_unit) + mmv$page_ streaming _prestream; 
602 11556 IF stxe_ p4.stream.sequential_ accesses > tu_to stream THEN {Initiate streaming 
616 11557 transfer _unit_count := mmv$page_streaming reads; 
616 11558 stxe_pA.stream.streaming := TRUE; 
616 11559 mmv$paging statistics.page_streaming.initiated := 
628 11560 mmv$paging statistics.page _streaming.initiated + 1; 
628 11561 IFEND; {Initiate streaming 
628 11562 IFEND; { streaming boolean 
628 11563 IFEND; 
628 11564 
628 11565 { Prepare to read pages from the current page fault to the end of one or more transfer units. The counters 
628 11566 { for the pages are setup so that we can skip to the end of a transfer unit in some case (locked page). 
628 11567 { pages to _read - number of pages to be read from the current transfer unit 
628 11568 { pages_te_be_ pulled - total number of pages in all of the TU being pulled (includes pages before fault) 
628 115689 { pages pulled - number of pages already pulled including pages in the faulted TU prior to fault. 
628 11570 { sva_start - the sva offset of the beginning of the faulted transfer unit 
628 11571 
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628 11572 Sva_start := faulted tu * streaming transfer unit; 
628 11573 sva_current := sva; 
628 11574 pages_to_read :: streaming transfer pages - ((Sva.offset - sva_start) DIV osv$page_size); 
628 11575 pages pulled :: streaming transfer pages - pages _to_ read; 
628 11576 pages to_be pulled := streaming_transfer pages * transfer_unit_count ; 
628 11577 
628 11578 { The total number of pages that may actually be pulled equals the total number of pages in the TUS under 
628 11579 { consideration minus the pages before the faulted page (pages _to_be_pulled - pages pulled). That total is 
628 11580 { to be restricted to 25% of the working set. WARNING: If at some time in the future the page pulls begin 
628 11581 { at the start of the TU, the check will be more complicated to handle a large TU > 25% of MAXWS 
628 11582 
*WARN* 11583 IF (pages_to_be_ pulled - pages_pulled) > (cst_p4.jcb_p4.max_working set_size DIV 4) THEN 
66E 11584 pages_to_be_ pulled := pages _ pulled + (cst_p’.jcb_p%.max_working set_size DIV 4); 
S86E 11585 IF pages_to_read > (cst_pA.jcb_p“%.max_working set size DIV 4) THEN 
676 11586 pages _to_read := (cst_pA.jcb_pA.max_working set_size DIV 4); 
874A 11587 IFEND; 
67C 11588 IFEND; 
67C 11589 
67C 11590 { Note that page_count and pstatus are still set from the initial call to mmp$page_ pull _hash_sva which 
67C 11591 { was done early in pr_pf. page _count = 1 if the page was found. The quick exit from /find_the_page/ 
67C 11582 { was not taken because the segment was in a stream mode. 
67C 11593 
67C 11594 IF page count = O THEN 
684 11595 mmp$page_ pull (sva, fde_p, cst_p, aste_p, stxe_p, io_id, pages_to_read, ioc$read_page, TRUE, 
G6E4 11596 page count, pstatus, pfti); 
6E4 11597 IFEND; 
6E4 11598 
6E4 11599 pfti_of faulted _ page := pfti; 
6E4 11600 pstatus_of _ faulted page := pstatus; 
6E4 11601 page _ streaming available page :=: FALSE; 
6E4 11602 
6E4 11603 /exit_and_continue_stream/ 
6E4 11604 BEGIN 
6E4 11605 
6E4 11606 /pull_pages_ page_streaming/ 
6E4 11607 WHILE TRUE DO 
6FC 11608 pages _ pulled :: pages pulled + page count; 
6FC 11609 pages _ to read := pages _ to_read - page_count; {number of pages left in the current TU 
6FC 11610 IF (pstatus <> ps_locked) AND (pstatus <> ps_valid_in pt) THEN 
714 #11611 IF stxe_pA.stream.streaming THEN 
726 11612 mmv$paging statistics.page_streaming.pages streaming := 
734 11613 mmv$paging_statistics.page streaming.pages streaming + page count; 
734 11614 ELSE 
734 #11615 mmv$paging statistics.page_streaming.pages prestream := 
73E 11616 mmv$paging statistics.page_streaming.pages prestream + page count; 
73E 11617 IFEND; 
740 #11618 IFEND; 
740 11619 
7480 11620 CASE pstatus OF 
794 11621 = ps_locked, ps_valid_in_pt = {these pages are not counted, they were counted when initiated 
794 11622 pages pulled := pages_pulled + pages _to_read; 
734 11623 pages _to_read :: 0; {skip to the next transfer unit} 
7TS9E 11624 = ps_found_on_disk = 
7S9E 11625 ijle pA.statistics.paging statistics.page_in_count := 
73E 11626 ijle_pA.statistics.paging statistics.page_in_count + page_count; 
79E 11627 


cst_pA.xcb pA.paging statistics.page_ in_count := 
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79E 11628 cst_pA.xcbh_pA.paging statistics.page_in_count + page count; 

79E 11629 mmv$paging statistics.ps_pages.disk := mmv$paging statistics.ps_pages.disk + page_count; 

7CE 11630 = ps_found_in_avail, ps_found_in_avaiil_modified = 

7CE 11631 ijte_ pr. Statistics. paging statistics. pages _ reclaimed from_queue := 

7CE 11632 ijle_ pA.statistics. paging statistics.pages_ reclaimed_ from queue + page_ count; 

7CE 11633 cst_pA.xcb_pA.paging statistics.pages_reciaimed_ from queue 2 

7CE 11634 cst_ps. xcb_ pa. Paging statistics. pages reclaimed_from_queue + page_count; 

7CE 11635 mmv$paging statistics.ps_pages.reclaim := mmv$paging statistics.ps_ pages.recilaim + page_count; 

7CE 11636 

7CE 11637 { Pages from the available queues probably indicate the file is being referenced again. It 7s 

7CE 11638 { likely that the next pages are also in one of available queues and therefore the potential 

7CE 11639 { performance gain of reading pages ahead is reduced from saving disk accesses to saving only 

7CE 11640 { page faults. Allow up to two pages to come from the available queues and then exit. Thus 

7CE 11641 { if the pages are in the available queues, we will get two pages per page fault when streaming. 

7CE 11642 ; 

7CE 11643 IF page _streaming available page THEN 

TFA 11644 EXIT /exit_and_cont inue_stream/ ; 

7FE 11645 IFEND; 

7JFE 11646 page streaming available _ page := TRUE; {indicate one page has been found in availabie queues 

g80c 11647 > ps _ mew _ page _ assigned, ps_allocate required _on_server = 

80C 11648 ijle_pA.statistics.paging statistics.new_pages_assigned := 

g0c 11649 ijle_p”%.statistics.paging statistics.new_pages assigned + page count; 

8OC 11650 cst_pA.xcb_ pA. paging statistics.new_pages assigmed :=: 

80cC 11651 cst_pA.xcb_p’.paging statistics.new_pages assigned + page count; 

80C 11652 mmv$paging statistics.ps_pages.new := mmv$paging statistics.ps_pages.new + page_count; 

80C 11653 

80C 11654 { Ailecation of new pages occurs one at a time, terminate page streaming to avoid overhead 

8OC 11655 

8OC 11656 EXIT /pull_pages_page_ streaming/; { terminate page streaming 

830A 11657 = ps_found_on_server = 

83A 11658 ijle_pA.statistics.paging statistics. pages_from_server :=: 

834A 11659 ijle_pA.statistics.paging statistics. pages_ from server + page count; 

83A 11660 cst _p4.xcb p%.paging statistics.pages from_server :: 

83A 11661 cst pA. xcb pA. paging statistics. pages_ from_server + page_ count; 

83A 11662 mmv$paging_statistics. pS_pages.server :: mmv$paging_statistics. pS_pages.server + page count; 

86A 11663 = ps_done = 

86A 11664 mtp$error_stop (’MM - internal error-ps_ done status from MMPSPAGE PULL’); 

839A 11665 ELSE 

89A 11666 

894A 11667 { ps_read_beyond_eoi, ps_no_extend permission, ps_beyond_file_lTimit 

894 11668 { ps_server_ terminated, Ps_io_temp_reject, ps_pt_full, ps_volume_unavai lable 

894 11669 { ps_no_memory, psS_low_on_memory, ps_job_work_ required 

839A 11670 

893A 11671 EXIT /pull_pages_page_streaming/; { terminate page streaming 

8SE 11672 CASEND ; 

89E 11673 

89E 11674 IF pages pulled >= pages_to_be pulled THEN 

8A2 11675 EXIT /exit_and_continue_stream/ ; 

8A8 11676 IFEND; 

8A&B 11677 IF pages_to_read <= © THEN 

8AC 11678 pages to read := streaming transfer pages; 

8BO 11679 IFEND; 

8BO 11680 sva_current .offset : = sva_start + pages _ pulled * osv$page_ size; 
*WARN* 11681 mmp$page_pull_hash_sva (Sva_current, aste_p, page_count, pstatus, pfti); 

9FE 11682 IF page count = © THEN 

AOG 11683 mmp$page_pull (sva_current, fde_p, cst_p, aste_p, stxe_p, io_id, pages_to_read, ioc$read_ page, 
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AG2 11684 FALSE, page_count, pstatus, pfti); 

AG62 11685 IFEND; 

AG2 11686 WHILEND /pull_pages_page_streaming/; 

AGS 11687 

A68 11688 { Terminate page streaming if exit nere, usual exit is to skip this code 

AG& 11689 

AG& 11690 stxe_pA.stream.sequential_ accesses :: 0; 

AGS 11691 stxe_ pA.stream.random_faults := 0; 

ABS 11692 Stxe_ pA.stream.streaming :: FALSE; 

AG& 11693 

A68 11694 END /exit_and_continue_stream/; 

A&S& 11695 

A&8& 11696 page _ count := 0; 

488 11697 pstatus := pstatus_of faulted page; 

A&S& 116398 pfti :=5 pfti_of_ faulted page; 

ABO 11689 

ABO 11700 IFEND; {nominal_page_fault} 

ABO 11701 

ABO 11702 

ABO 11703 END /find_the_page/ ; 

ABO 11704 

ABO 11705 IF syv$perf_keypoints_enabled.memory_ keypoints THEN 

ABS 11706 #KEYPOINT (osk$performance, osk$m * pfti, ptk$page_fault_pfti); 

AC4 11707 #KEYPOINT (osk$performance, osk$m * $INTEGER (pstatus), ptk$page_fault_status) ; 

ADO 11708 #KEYPOINT (osk$performance, osk$m * (aste_pA.ijil_ordinal.block_mumber * 

AF2 11709 32 + aste_p4.ijl_ordinal.biock_index), ptk$page_fault_ijl); 

AF2 11710 IFEND; 

AFE 11711 

AFE 11712 

AFE 11713 IFEND; { aste_p <> NIL 

AFE 11714 

AFE 11715 

AFE 11716 { We have gotten here in one of four ways in which pstatus may have been set: 

AFE 11717 { 1. aste p = NIL (not likely to happen) 

AFE 11718 f{ 2 The page was found by the proc mmp$page_pull_hash_sva and then the quick exit was taken. At this 

AFE 11719 { point this case is exactly the same as a nominal page fault (case 3). 

AFE 11720 { 3. Nominal page fault (PSTATUS and PAGE COUNT reflect the call to pull the faulted page) 

AFE 11721 { 4 Page streaming mode pulled the faulted page and saved PSTATUS. Additional page pulls may have been 

AFE 11722 { performed after the faulted page was pulled. PSTATUS has been restored to the value returned with 

AFE 11723 { the faulted page but PAGE COUNT = 0 because the page counters were updated by the page streaming code. 

AFE 11724 

AFE 11725 cst_pA.xcb_ pA.paging statistics.page fault count := cst_p4.xcb_ p4.paging statistics.page fault count + 1; 

AFE 11726 ijle_pA.statistics.paging statistics.page fault _count := 

AFE 11727 ijle_pA.statistics.paging statistics.page fault _count + 1; 

AFE 11728 

AFE 11729 

AFE 11730 CASE pstatus OF 

BBA 11731 

BBA 11732 = ps_found_in_avail, ps_found_in_avail_ modified = 

BBA 11733 ijle_pA.statistics.paging statistics.pages_ reclaimed from queue :=: 

BBA 11734 ijle_pA.statistics.paging statistics.pages_reciaimed_from_queue + page _ count; 

BBA 11735 cst_p4.xcb_ pA.paging statistics.pages_ reclaimed from _queuwe : = 

BBA 11736 cst_pA.xcbh pA.paging statistics.pages reclaimed from_queue + page count; 

BBA 11737 mmv$paging_ statistics.pf_pages.reciaim := mmv$paging statistics.pf_pages.reclaim + page count; 

BE4 11738 


BE4 11739 = ps new page _ assigned = 
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BE4 11740 ijle_pA.statistics.paging statistics.new_pages_ assigned := 
BE4 11741 ijle_pA.statistics.paging statistics.new_pages assigned + page count ; 
BE4 11742 cst_p%.xcb_p% .paging statistics.new_pages assigned := 
BE4 11743 cst _pA.xcb_ pA.paging_statistics.new_pages_ assigned + page count; 
BES 11744 mmv$paging statistics.pf_pages.new := mmv$paging_statistics.pf_pages.new + page count; 
BE& 11745 stxe_pA.stream.sequential_accesses :=: 0; { zero count to prevent prestream mode on next PF 
BE&4 11746 
BES 11747 
BE4 11748 { Since mew pages are being allocated, force the transfer unit size to be at least an allocation unit 
BE4 11749 { so that if free behind is performed it will go back at least an allocation size to free pages. 
BE4 11750 { relative _transfer_unit is not recalculated, it will just cause free behind to be attempted early. 
BE4 11751 
BE4 11752 IF fde_ pr.allocation_unit_size > streaming transfer_unit THEN 
C22 11753 streaming transfer_unit :* fde_pr.allocation_unit_size; 
C22 11754 faulted_tu :: sva.offset DIV streaming transfer _unit; 
C36 11755 IFEND; 
C44 11756 
C44 11787 > ps _valid_in_ pt, ps_job_work required = 
C4s 11758 = ps_read _ beyond_eoi, ps_no_extend_permission = 
C4s 11759 monitor fault .identifier := mmc$segment_ fault _processor_id; 
C48 11760 sac_p := #LOC (monitor_fault.contents); 
CS2 11761 IF pstatus = ps _ read beyond _eoi THEN 
cSC 11762 sac _pA.identifier := mmc$sac_read_beyond_eoi ; 
C66 11763 ELSE 
C66 11764 sac _pA.identifier := mmc$sac_no_append_permission; 
C6E 11765 IFEND; 
CEE 11766 sac _p4.seqment := pva.p; 
C6E 11767 tmp$send_ monitor fault (cst _prA.taskid, #LOC (monitor fault), TRUE); 
C9c 11768 
csc 11769 = ps beyond file _Timit = 
csc 11770 monitor fault .identifier := mmc$segment_fault_processor_id; 
c9c 11771 sac up :=: #LOC (monitor fault .contents) ; 
CA6 11772 sac_pA.identifier := mmc$sac_ read write beyond_ms1; 
CAGE 11773 sac_p“.segment :: pva.p; 
CAG 11774 IF fde_pA.stack_for_ ring >» O THEN 
Cc2 11775 File limit := fde_pA.file_ limit + 500000; 
Cc2 11776 IF file _ limit >» O7F FFFFFF(1E) THEN 
CD8 11777 file JTimit : = TFFFFFFF(16) ; 
coe 11778 IFEND; 
Coc 11779 fde_ pA.file_ Timit := file Timit; 
CE4 11780 IFEND ; 
CE4 11781 tmp$send_ monitor fault (cst_p%.taskid, #LOC (monitor fault), FALSE); 
DOA 11782 
DOA 11783 = ps_server_terminated = 
DOA 11784 monitor fault .identifier := mmc$segment_fault_processor_id; 
DOA 11785 sac _p := #LOC (monitor _fault.contents) ; 
D114 11786 Sac _pA.identifier := mmc$sac_file_server_terminated; 
D014 11787 Sac_p4.segment :=: pva.p; 
D1i4 11788 tmp$send_ monitor fault (cst_p%.taskid, #LOC (monitor fault), FALSE); 
D44 11789 
D4A4 11790 = ps_ found _on_disk =: 
D4a 11791 ijle_pA.statistics.paging statistics.page_in_ count :: 
D4A 11792 ijle_p”.statistics.paging statistics.page_in_count + page count; 
D&4A 11793 cst_p4.xcb_pA.paging statistics.page_in_count :: cst_pA.xcb_pA.paging statistics.page_in_count + 
D4A 11794 page_count ; 
B4A 11785 mmv$paging statistics.pf_pages.disk := mmv$paging_statistics.pf_pages.disk + page count; 
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1796 
1797 
1798 
1798 
1800 
1801 
1802 
1803 


{NOTE 
{Job recovery uses active ice count to determine the status of a page after a crash a 
{DONT MESS WITH ACTIVE I0 COUNT UNLESS YOU UNDERSTAND IT’S USE IN JOB RECOVERY. Thank You. 


IF mmv$pft_pA [pfti].active_io_count = © THEN 
mtp$error_ stop (’MM - page fault queue no 10’); 
IFEND; 
tmp$queue_task (cst_p4.taskid, tmc$ts_ page wait, mmv$pft_p’% [pfti].task_ queue) ; 
cst_p’.xcb_pA.page_wait_imnfo.pva :: pva.p; 
= ps_locked ; 
{NOTE 
{Job recovery uses active io count to determine the status of a page after a crash 


{DONT MESS WITH ACTIVE I0 COUNT UNLESS YOU UNDERSTAND IT’S USE IN JOB RECOVERY. Thank You. 


IF mmv$pft_pA [pfti].active_io_count = © THEN 
mtp$Serror_ stop (’MM - page fault queue no 10’); 
IFEND; 
tmp$queue_task (cst_p4A.taskid, tmc$ts_ page wait, mmv$pft_p* [pfti].task_queue) ; 
cst _pA.xcb_pA.page_ wait_info.pva := pva.p; 


= ps_io_temp_reject = 
tmp$cause_task_switch; 


" 


Pps_pt_full = 
cst_pA.dispatch_control.asynchronous_interrupts pending := TRUE; 
tmp$cause_task_switch; 


Ps_no_memory, ps_1O0W_on_memory = 
tmp$queue_ task (cst _pr.taskid, tmc$ts_memory wait, mmv$memory wait_queue) ; 


{ Process the case of the page found on the server mainframe. 


= ps_found_on_server = 
Tjle_pA.statistics.paging statistics.pages from_server := 
ijle_pA.statistics.paging statistics.pages_from_ server + page count ; 
cst_pA.xcb_ pA.paging statistics.pages_ from server := 
cst_p4.xcb_ pA.paging statistics.pages from server + page count ; 
mmv$paging statistics.pf_pages.server :: mmv$paging statistics.pf_pages.server + page _count; 
{ Check active_io_count to insure activity exists. No activity is fatal. 
IF mmv$pft_pA [pfti].active_io_count = © THEN 
_mtp$error_stop (‘MM - page fault queue no 10, ps_found_on_server’); 
IFEND ; 
{ Queue the task in page wait. 


tmp$queue_task (cst_pA.taskid, tmc$ts_ page _ wait, mmv$pft_p4 [pftil].task_queue) ; 
cst _pA.xcb_ pA.page_wait_info.pva := pva.p; 


= ps_allocate required on server = 


ijle_pA.statistics.paging statistics.new_pages assigned := 
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FSA 11852 ijle_pA.statistics.paging statistics.new_pages_assigned + page_count; 
F9A 11853 cst_pA.xcb pA.paging statistics.new_pages_assigned := , 
FSA 11854 Ccst_pA.xcb_p%.paging statistics.new_pages assigned + page_count; 
FSA 11855 mmv$paging statistics.pf_pages.new := mmv$paging statistics.pf_pages.new + page_count; 
FSA 11856 stxe_ pA.stream.sequential_accesses := 0; { zero count to prevent prestream mode on next PF 
FSA 11857 
F9A 11858 
F9A 11858 { Since new pages are being allocated, force the transfer unit size to be at least an allocation unit 
F94 11860 { so that if free behind is performed it will ge back at least an allocation size to free pages. 
F94 11861 { relative _transfer_unit is not recalculated, it will just cause free behind to be attempted early. 
FSA 11862 
FSA 11863 IF fde_pr.allocation_unit_size >» streaming _transfer_unit THEN 
FD&S 11864 streaming transfer_unit := fde_pA.allocation_unit_size; 
FD& 11865 faulted tu := sva.offset DIV streaming transfer unit; 
FEC 11866 IFEND ; 
FEC 11867 
FEC 11868 { Check active_io_count to insure activity exists. No activity is fatal. 
FEC 11869 
FEC 11870 IF mmv$pft_pA [pfti].active_io_count = © THEN 
1OOE 11871 mtpSerror_ stop (‘MM - page fault queue no I0, ps_found_on_server’); 
1O02E 11872 IFEND ; 
102E 11873 
102E 11874 { Queue the task in page wait. 
102E 11875 
102E 11876 tmp$queue_task (cst_pA.taskid, tmc$ts_page_wait, mmv$pft_pA [pfti] .task_queue) ; 
106C 11877 cst_pA.xcb pA. page wait_info.pva := pva.p; 
1084 11878 
1084 11879 = pS volume _ unavailable = 
1084 11880 cst_p%.xcb pA.page_wait_info.pva : = pva.p; 
1084 11881 mmp$Sprocess_ volume _unavailable (cst_pA.xcb_p, FALSE); 
10BO 11882 = ps_done = 
1OBO0 11883 mtp$error_stop (‘MM - internal error-ps_done status from MMP$PAGE_ PULL’); 
10D2 11884 
10D2 11885 CASEND; 
1002 11886 
10D2 11887 
10D2 11888 
1002 11889 { If appropriate do free behind. Free pages that are in the transfer units prior to the transfer unit 
10D2 11890 { immediately before the current page fault transfer unit. (i.e. faulted tu -2, -3, -4 ... atc.) 
10D2 11891 { Stop freeing pages at the first page that is not freed because it is locked or it is not found. 
1002 11882 { Note that if a new page was assigned, a check was made to force transfer size >= allocation size. 
10D2 118893 { Since this code looks at the pages in reverse order, the PFTI procs mmp$reset_store_pfti_reverse 
1002 11894 { ana mmp$store pfti_ reverse are used so that mmp$remove_ pages from_jws will free the pages in 
10D2 11895 { sva ascending order -.. this is helpful if the pages are modified 
10D2 11896 
10D2 11897 IF (mmc$sa_free_ behind IN stxe_pA.software_attribute_ set) AND 
10EE 11898 (fde_pA.media <> gfc$fm_transient_segment) THEN 
1OEE 118399 xSva : 5 Sva; . 
10EE 11900 IF ({relative_ transfer unit > ©0)) AND (faulted_tu > 1) THEN 
1OFE 11901 xSva.offset :: ((faulted tu - 1) * streaming transfer_unit); 
10OFE 11902 mmp$reset store _pfti_reverse; 
1OFE 11903 , 
10FE 11904 /free_ behind/ 
1OFE 11905 WHILE xsva.offset > © DO {since xsva is page boundary, if >O it will be at least = 1 page. 
1138 11906 xSva.offset :: xsva.offset - osv$page_size; 
1138 11907 #HASH SVA (xsva, ipti, count, found); 
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114E 11908 IF NOT found THEN 
1162 11909 EXIT /free_ behind/; { Exit if the page was not found 
1164 11910 ELSE 
116A 11911 xpfti :=2 (mmv$pt_pA [ipti].rma * 512) DIV osv$page_size; 
116A 11912 IF (mmv$pft_p4 [xpftil.queue_id >= mmc$pq_first_valid_in_pt) AND 
114A 11913 (mmv$pft_pr [xpFfti]. locked page = mmc$1p_not_locked) THEN 
11AA 11914 mmp$store_ pfti_ reverse (xpfti); 
11CA 11915 ELSE 
11CA 11916 EXIT /free_behind/; {Exit if the page is locked 
11CE 11917 IFEND; 
11CE 11918 IFEND; 
11CE 11918 WHILEND /free_ behind/; 
11Dc 11920 
11DC 11921 mmp$fetch pfti_array_ size (recount); 
11DC 11922 IF rcount > O THEN 
11F2 11923 mmp$Sremove_ pages _from_jws (mmc$pq_avail_modified, ijle_p, mcount, rcount); 
1218 11924 mmv$paging statistics.page_streaming.pages_freed_behind := 
1226 11925 mmv$paging statistics.page streaming.pages_freed_behind + rcount; 
1226 11926 IFEND; 
1226 11927 IFEND; {faulted tu GT 1 
1226 11928 IFEND; {free behind 
1226 11929 
1226 119330 
1226 11931 
1226 11932 {Update page fault statistics. 
1226 11933 
1226 11934 mmv$pf statistics [SINTEGER (pstatus)] : = mmv$pf_statistics [SINTEGER (pstatus)] + 1; 
1226 11935 io: mmv$pf_sva_array.next_i; 
1226 11936 mmv$pf osva_array.next_i := (i + 1) MOD num_pf_recs; 
1226 11937 mmv$pf_ osva_array.pf_recs [i].sva := sva; 
1226 11938 mmv$pf_sva_array.pf_ recs [i].pstatus_time := (#FREE_ RUNNING CLOCK (0) DIV 131072) MOD 
1264 11939 100(16) + SINTEGER (pstatus) * 100(16); 
1264 11940 
1264 11941 
1264 11942 {Scan the JWS if the job cp time exceeds the aging threshold. 
1264 11943 
1264 11944 IF mmvSaging algorithm >= 4 THEN 
128C 11945 cptime := ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
1294 11946 ELSE 
1294 11947 cptime :=5 ijle_pA.statistics.cp_time.time_spent_in_mtr_mode + 
12A0 11948 ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
12A0 11949 IFEND; 
12A0 11950 IF cptime > cst_pA. jcb_p4.cptime_next_age_ working set THEN 
12AC 11951 mmp$age_job_working_ set (ijle_p, cst_p%. jcb_p); 
12C0 11952 IFEND; 
12C0 11953 check_aio_slowdown := (ijle_p”. job _page queue _list [mmc$pq_job_working_set].count > 
12CO 11954 cst_pA. jcb_p4.max_working_set_size); 
12C0 11955 IF check_aio_slowdown OR (ijie_p%.job_page_ queue _list [mmc$pq_job_working set].count > 
12EO 11956 mmv$max_working set _size) THEN 
12EO0 11357 mmp$trim_job_working set (ijle_p, cst_pA.jcb_p, FALSE {trim_to_swap_size:faise} ); 
12FC 11958 IF check _aio_ stowdown THEN 
1300 11959 CASE pstatus OF 
131E 11960 = ps_found_in_avail, ps_found_in_avail_modified, ps_new_page_ assigned, ps_valid_in_pt = 
131E 11961 IF ijle_p4.active_io_ requests > mmv$maxws_aio_threshoid THEN 
132A 119862 mmv$maxws_aio_count := mmv$maxws_ aio count + 1; 
132A 11963 cst_pA.xcb_pA%.maxws_aio_ slowdown := cst_pA.xcb pA.maxws_aio_slowdown + 1; 
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132A 11964 ijle_ p4A.maxws_aio_ slowdown display := ((mmv$maxws_aiec_slowdown DIV 
132A 11965 mmv$ jws_queue_age_interval) + 1) MOD 256; 
132A 11966 tmp$cause_ task_switch; 
136E 11967 IFEND; 
1372 11968 ELSE 
1372 11869 CASEND; 
1372 11970 IFEND; 
1376 11971 ELSEIF ijle_pA.active_io_requests > mmv$aio_limit THEN 
1382 11972 CASE pstatus OF 
13A0 11973 = ps_found_in_avail, ps_found_in_avail_modified, ps_new_page_ assigned, ps_valid_in_pt = 
13A0 11974 tmp$cause task _ switch; 
1348 11875 mmv$aio_limit count 2s mmv$aio_ limit count + 1; 
13B6 11976 ELSE 
13B6 11977 CASEND; 
13B6 11978 IFEND ; 
13B6 119783 
13B6 113980 IF cst _pA.xcb _ p’. paging statistics.working set_max_used < ijle_p”. 
13C6 11981 job_page_queue_list [mmc$pq_job_working set] .count THEN 
13C6 11982 cst_pA.xcb_ pA. paging statistics.working set _max_used := ijle_p”. 
13C6 11983 job_page_queue_list [mmc$pq_job_working_ set] .count ; 
13C6 11984 IF ijle_p’.statistics.paging statistics.working set _max_ used < ijle_p”. 
1306 11885 job_page_queue_ list [mmc$pq_job_working set].coumt THEN 
13D6 11986 tjle_pA.statistics.paging statistics.working set _max_used :: ijle pA. 
13DA 119387 job_page_queue_ list I[mmc$pq_job_working set] .count; 
130A 11988 IFEND; 
13D4 11989 IFEND; 
13DA 11990 
1304 11991 
13D4 119892 {Free queue must be replenished if the number of freetavail pages is below the threshold. 
13DA 11993 
13DA 11994 check_free_queues (cst_p); 
1422 11995 
1422 11996 
1422 11997 {Reset UTP in the Exchange Package. 
1422 11998 
1422 11999 cst_pA.xcb_pA.xp.untranslatabie pointer := null_utp; 
1422 12000 
1422 12001 #KEYPOINT (osk$mtr, SINTEGER (pstatus) * osk$monitor_ multiplier, mmk$page_fault + osk$m) ; 
143A 12002 
143A 12003 PROCEND pr_pf; 
© 12004 
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12006 
12007 
12008 
12009 
12610 
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12018 
12018 
12020 
12021 
12022 
12023 


PROCEDURE [XDCL] mmp$process_assign_pages_req 


(VAR rb: mmt$rb_assign_pages; 
cst_p: Aost$cpu_state_table); 


CASE rb.sub_reqcode OF 
= mmc$aprc_assign = 
mmp$process_assign_pages (rb, cst_p); 


= mmc$aprc_cancel_reserve = 
mmp$process_canceli_reserve (rb, cst_p); 


ELSE 


mtp$error_ stop (’MM--ASSIGN PAGES--UNKNOWN REQUEST’ ); 
CASEND ; 


PROCEND mmp$process_ assign _ pages _req; 
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Oo 12025 ‘ 
© 12026 PROCEDURE mmp$process_ assign_pages 
© 12027 (VAR rb: mmt$rb_assign_pages; 
© 12028 cst_p: Aost$cpu_state_table); 
© 120293 
© 12030 CONST 
© 12031 mmc$ap_ignore _maxws_and_ trim = 131072; 
Oo 12032 
o 12033 VAR 
© 12034 assigned _pages_count: mmt$page_frame_index, 
Oo 12035 aste_p: Ammt$active_segment_table_entry, 
o 12036 count: 1 32, 
© 12037 fde_p: gft$locked file _ desc _entry_ p, 
Oo 12038 first _pfti: mmt$page_ frame_index, 
o 12039 found: boolean, 
Oo 12040 i: integer, 
© 12041 ijle_p: Ajmt$initiated_job_list_entry, 
oO 12042 ipti: integer, 
© 12043 memory available: boolean, 
© 12044 next _pfti: mmt$page_frame_index, 
© 12045 page_status: gft$page_ status, 
Oo 12046 pfte_p: Ammt$page_frame_table_entry, 
Oo 12047 pfti: mmt$page_frame_index, 
© 12048 pstatus: mmtSpage_pull_ status, 
© 12049 psva: ost$system_virtual_address, 
© 12050 pte_p: Aost$page_ table_entry, 
© 120581 reject_offset: ost$segment_offset, 
© 12052 requestea page count: mmt$page_frame_index, 
o 12053 remaining pages _to_assign: mmt$page_ frame_index, 
o 12054 ste_p: Ammt$segment_ descriptor, 
Oo 12055 stxe_p: AmmtS$segment_descriptor_extended, 
© 12056 sva: ost$system_virtual_address, 
o 12057 trim_pages: boolean, 
© 12058 xsva: ost$system_virtual_address, 
© 12059 valid pages _in_memory: mmt$page_frame_index, 
0 12060 pages _not_in_memory: mmt$page_frame_index, 
oO 12061 am_pages_in_memory: mmt$page_frame_index, 
Oo 12062 avail _pages_in_memory: mmt$page_frame_index; 
© 12063 
oO 12064 ro.status.normal := TRUE; 
4 12065 
4 12066 IF NOT mmv$tables_initialized THEN 
16 12067 RETURN; 
18 12068 IFEND; 
18 12069 
18 12070 mmp$verify pva (Arb.pva, mmc$sat_write, rb.status) ; 
3A 12071 IF NOT rb.status.normal THEN 
42 12072 RETURN; 
44 12073 IFEND ; 
44 12074 
44 12075 mmp$convert_pva (rb.pva, cst_p, sva, fde_p, aste_p, ste _p, stxe_p); 
84 12076 IF stxe_p’%.access state <> mmc$sas_allow_access THEN 
$0 12077 IF stxe_p4.access_ state = mmc$sas_inhibit_access THEN 
94 12078 mtp$set_status_ abnormal (’MM’, mme$volume_unavailable, rb.status); 
$4 12073 RETURN; 
BO 12080 ELSEIF stxe_p4.access state = mmc$sas_terminate_access THEN 
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B4 12081 mtp$set_status_abnormal (’DF’, dfeg$server_has_terminated, rb.status) ; 
B4 12082 RETURN; 
CE 12083 IFEND ; 
CE 12084 IFEND; 
CE 12085 
CE 12086 IF aste_ p = NIL THEN 
DC 12087 mtp$set_status abnormal (’MM’, mme$invalid_pva, rb.status) ; 
DC 12088 RETURN; 
F4 120893 IFEND; 
F4 12090 
F4 12091 requested page count := (#OFFSET {rb.pva) + rb.length - 1) DIV osv$page_size 
F4 12092 (#OFFSET (rb.pva) DIV osv$page_ size) + 1; 
F4 12093 
F&4 12094 IF (Sva.offset + requested page count # osv$page_ size) > fde_ pA.file_Timit THEN 
12A 12095 mtp$set_status abnormal (’MM’, mmeSassign_length_too_long, rb.status); 
1248 12096 RETURN ; 
142 12097 IFEND; 
142 12098 
142 12099 IF (aste_p4%.queue_id = mmc$pq_ wired) OR (aste_p4.queue_id = mmc$pq_job_fixed) THEN 
158 12100 mtp$set_status_abnormal (‘MM’, mme$wired_or_fixed segs _ illegal, rb.status) ; 
1588 12101 RETURN; 
170 12102 IFEND; 
170 12103 
170 12104 { Round off the sva to a page boundary. 
170 12105 
170 12106 Sva.offset := (Ssva.offset DIV osv$page_size) * osv$page_size; 
170 12107 xSVa : = Sva; 
170 12108 
170 12109 CASE fde_p4.media OF 
19E 12110 = gfc$fm_transient_ segment = 
19E 12111 IF (aste_pA.pages_in_memory + requested page count > mmv$max_pages no_file) THEN 
1BO0 12112 page _ status := gfc$ps_job_mode work_required; 
1BO 12113 reject_offset := sva.offset; 
1€8 12114 ELSE 
1€8 12115 page status := gfc$ps_page_doesnt_exist; 
1CE 12116 IFEND; 
1D2 12117 = gfc$fm_mass_storage_file = 
1D2 12118 mmv$last_segment_accessed :: #SEGMENT (rb.pva); 
1D2 12118 dmp$fetch_ multi_page_status [(fde_p, sva.offset, requested _page_count * osv$page_size, 
226 12120 stxe_ p’.file limits enforced, reject_offset, page status); 
226 12121 = gfc$fm_served file = 
226 12122 dfpSfetch_multi_page status (fde_p, sva.offset, requested page_count * osv$page_size, page_status); 
2582 12123 reject _offset := sva.offset + (requested page count - 1) * osv$page_size; 
26C 12124 CASEND; 
26C 12125 
26C 12126 
26C 12127 CASE page_status OF 
2B8 12128 = gfc$ps_page_on_disk, gfc$ps_page_on_server, gfc$ps_page_doesnt_exist = 
2BC 12129 
2BC 1213060 { These are ok; do nothing 
2BC 12131 
2BC 12132 > gfc$ps_temp_reject, gfc$ps_account_limit_exceeded = . 
2BC 12133 mtp$set_ status abnormal (’MM’, mmeStemporary reject, rb.status); 
2BC 12134 tmp$cause_ task switch; 
2DA 12135 RETURN; 


12136 
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2EO 12137 = gfc$ps_ volume _unavailable = 
2EO 12138 mtp$set_status_abnormal (’MM’, mme$volume_unavailable, rb.status) ; 
2EO 12139 RETURN; 
2FC 12140 
2FC 12141 = gfc$ps_server_terminated = 
2FC 12142 mtp$set_status_abnormal (’DF’, dfe$server_has_terminated, rb.status) ; 
2FC 12143 RETURN; 
318 12144 
318 12145 = gfc$ps_server_allocate required, gfc$ps_job_mode_work_ required = 
318 12146 set_assign_active [(stxe_p, reject_offset); 
340 12147 tmp$set_monitor_filag (cst_p’%.taskid, mmc$mf_segment_mgr_flag, rb.status) ; 
362 12148 mtp$set_ status abnormal ({’MM’, mme$dm_assign_active, rb.status) ; 
362 12149 RETURN; 
374 12150 
374 12151 ELSE 
37A 12152 mtp$error_ stop [(’mm - unexpected DM error in assign pages’); 
39A 12153 CASEND; 
394A 12154 
394 12155 
394 12156 { Caiculate how many pages are needed; some may already be in the jws. 
39A 12157 
39A 12158 Valid_pages_in_memory := 0; 
334 12159 pages mot_inm_memory := 0; 
394A 12160 am_pages_in_memory := 0; 
39A 12161 avail _pages_in_memory := 0; 
339A 12162 
339A 12163 FOR i :5 1 TO requested _ page count DO 
3AC 12164 #HASH_SVA (xsva, ipti, count, found); 
SAE 12165 IF found THEN 
3C2 12166 pte_p := Ammv$pt_ pA [iptil; 
3C2 12167 IF pte_pA.v THEN 
3D6 12168 valid pages _in_memory := valid pages _in_ memory + 1; 
3DC 12169 ELSE 
3DC 12170 pfti := pte pA.rma * 512 DIV osv$page_size; 
3DC 12171 pfte_p := AmmvS$pft_pA [pFftil]; 
30C 12172 IF pfte_p4.queue_id = mmc$pq_ avail THEN 
416 12173 avail_pages_in_memory :: avail_pages_in_memory + 1; 
41C 12174 ELSE 
41cC 12175 am_pages_in_memory := am_pages_in memory + 1; 
41E 12176 IFEND; 
420 12177 IFEND; 
424 12178 ELSE 
424 121783 pages _not_in_ memory := pages _ not _in_memory + 1; 
428 12180 IFEND; 
428 12181 xSva.offset :5 xsva.offset + osv$page_ size; 
428 12182 FOREND; 
4482 12183 
442 12184 ijle_p := cst_prA.ijle_p; 
442 12185 
442 12186 { Determine if the limit on the job’s working set will allow the addition of the new pages 
442 12187 { to be assigned (if pages go in the working set), and if there is memory available to assign. 
442 12188 
442 12189 
442 12190 IF aste_pA.queue_id = mmc$pq_job_working set THEN 
456 12191 trim_pages :: FALSE; 
456 12192 IF rb.length <= mmc$ap_ignore_maxws_and_trim THEN 
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462 
466 
488 
488 
488 
4&8 
488 
49E 


12193 
12194 
12195 
12196 
12137 
12198 
12199 
12200 
12201 
12202 
12203 
12204 
12205 
12206 
12207 
12208 
12208 
12210 
12211 
12212 


12213 


12214 
12215 
12216 
12217 
12218 
122193 
12220 
12221 
12222 
12223 
12224 
12225 
12226 
12227 
12228 
122293 
12230 
12231 
12232 
12233 
12234 
12235 
12236 
12237 
12238 
122393 
12240 
12241 
12242 
12243 
12244 
12245 
12246 
12247 
12248 


trim_pages := TRUE; 

ELSEIF (((pages_not_in_memory + avail _pages_in_memory + am_pages_in_memory) + 
ijle_pA.job_page_queue_list [mmc$pq_job_working set].count) > 
cst_pA.jcb_p%.max_working set_size) OR ((pages_not_in_memory + ijle_pA”. 
job_page queue _ list [mmc$pq_job_working set].count) >» mmv$max_working set_size) THEN 

mtp$set_status_abnormal (’MM’, mme$assign_length_too_long, rb.status); 
RETURN; 
IFEND; 
IFEND; 


Pages that are reassignable NOW (free + availabie) will be decremented by new pages assigned 
(pages_not_in_memory) and available pages reassigned (avail_pages_in_memory). Make sure 
assigning that many pages for this job wil? not drive memory too low. 


ra rn 


memory available := ((mmv$gpqi [mmc$pq_free].pqie.count + mmv$gpqi [mmc$pq_avail].pqie.count + 
ijle_pA.memory_reserve request .reserved page count - mmv$reserved_ page count - pages_not_in_memory - 
avail_pages_in_memory) > mmvS$aggressive_aging_level_2); 


IF memory _available THEN 


Any pages in the requested range that are aiready in memory need to be marked as valid 
and used; pages that are not in memory need to be assigned. If specified, preset pages. 


rae 


xSva := sva; 
WHILE requested page count > O DO 
#HASH_SVA (xsva, ipti, count, found); 
IF found THEN 
pte _p := Ammv$pt_pA [Liptil; 
IF NOT pte _ pA.v THEN 
pfti := (pte_pA.rma * 512) DIV osv$page_size; 
pfte_p := Ammv$pft_pA [pFftil; 
IF aste_pA.queue_id >= mmc$pq_job_base THEN 
pfte pA.ijl_ordinal := cst_pA.ijl_ordinal; 
ELSE 
pfte pA.ijl_ordinal := jmv$system_ijl_ordinal; 
IFEND; 
mmp$relink page _ frame (pfti, aste _p%.queue_ id); 
ELSEIF rb.preset pages THEN 


{ Valid pages cannnot be preset; clear the valid bit, preset the page, and reset the valid bit. 


pte pA.v :: FALSE; 
IFEND; 
IF rb.preset_ pages THEN 
mmp$preset_real_ memory (xsva, fde_p4.preset_ value) ; 


pte pA.m := TRUE; 
IFEND; 
pte _ pA.u TRUE; 


pte pA.v := TRUE; 
requested page count := requested page count - 1; 
xsva.offset := xsva.offset + osv$page_ size; 

ELSE 


{ The page is not already in memory; assign a new page to memory. MMPSASSIGN PAGE FRAME 
{ will start at the sva passed to it and assign pages until the requested count is reached or 
{ until one of the pages in the requested range is found already in memory.” The procedure 
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5D4 12249 
SD4 12250 
504 12251 
5D4 12252 
$04 12253 
§D4 12254 
5B4 12255 
5D4 12256 
5D4 12257 
$04 122588 
5D4 12259 
SDC 12260 
SEO 12261 
SEO 12262 
SE2 12263 
5SE2 12264 
SE2 12265 
61A 12266 
61A 12267 
61A 12268 
622 12269 
622 12270 
622 12271 
62C 12272 
62C 12273 
62C 12274 
62C 12275 
62C 12276 
62C 12277 
62C 12278 
62C 122793 
62C 12280 
62C 12281 
652 12282 
66E 12283 
676 12284 
6A2 12285 
6A2 12286 
6B6E 12287 
686 12288 
SBE 12289 
6BE 12290 
6BE 12291 
6EA 12292 
6FO 12233 
6FO 12294 
6FO 12295 
BFA 12296 
71E 12297 
724 12298 
724 12299 
734 12300 
73A 12301 
734 12302 
756 12303 
756 12304 
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returns the number of pages that were assigned. "Request" the lesser of remaining pages _to_assign 
and reassignable.now from mmp$assign_page_frame. This is done so that assign page frame will not 
reject for no memory. Checks were made above to be sure that there is enough memory for the request. 


The number of new pages that needs to be assigned can change if make_pt_entry is freeing some of the 
pages in the total requested range to prevent a page table full condition, so pages_not_in_memory 


cannot be used as the number to assign. The total requested page count can include pages that are 
already in the working set (they do not need to be assigned), so requested page_count cannot be 
passed to mmp$assign_page_frame. (If there are pages already in the job working set, requested page_ 


count is too large and may cause a no_memory reject.) 


IF requested page count > mmv$reassignable_page_ frames.now THEN 
remaining pages _to_assign := mmv$reassignable_ page_frames.now; 
ELSE 
remaining pages _to_assign :: requested page count; 
IFEND; 


mmp$assign_page_frame (xsva, aste_p, remaining pages _to_assign, 90, assigned pages _ count, first pfti, 
pstatus); 


IF assigned_pages_ count > O THEN 
mext pfti <= first pFfti; 
psva := xsva; 
WHILE next _pfti <> © DO 


Preset pages if mecessary; presetting can onty be done one page at a time. If the calier specified 
preset, then mark the page modified so that it witli be writen to disk if it ages out of the working 
set. Then if it iS referenced the user will get the preset page. If the preset is being done for 
security on the assignment of new pages to memory (to prevent a user from being abie to see what had 
previously been on the page), then the modified bit does not need to be set. If the page ages out 
of memory, it will not be written to disk. NOTE: Some pages may have been assigned even if a 

page table full condition was encountered. 


IF (rb.preset_pages) OR {(ste_pA.ste.r2 > 3) OR (fde_pA.stack_for_ring > 3) THEN 
mmp$preset_real_ memory (psva, fde_pA.preset_value) ; 
IF rb.preset pages THEN 
mmv$pt_pA [mmvSpft_pA [next_pfti].pti].m := TRUE; 
IFEND; 
psva.offset := psva.offset + osv$page_ size; 
IFEND ; 


mmv$pt_pA [mmv$pft_pA [next_pfti].pti].v :: TRUE; 
next pfti := mmv$pft_ pA [next _pfti] . link. bkw; 
WHILEND; : 
requested page _ count := requested page _ count - assigned pages count ; 
IFEND; 


IF pstatus = ps_mo_memory THEN 
mtp$error_stop (‘MM - NO MEMORY IN ASSIGN PAGES’); 

ELSEIF pstatus = ps_pt_full THEN 
mtp$set_status_abnormal (’MM’, mme$page_table_full, rb.status) ; 
RETURN; 

IFEND; 


xSva.offset := xsva.offset + (assigned_pages_ count * osv$page_ size); 
IFEND; 
WHILEND; 


MMP$PROCESS_ASSIGN_PAGES 


7SE 12305 
766 12306 
766 12307 
766 12308 
766 12309 
766 12310 
766 12311 
794 12312 
794A 12313 
7A2 12314 
TAZ 12315 
7EG6 12316 
JFE 12317 
852 12318 
860 12319 
887A 12320 
874A 12321 
87A 12322 
8698 12323 
8AO 12324 
8AO 12325 
8AO 12326 
8BA 12327 
8C2 12328 
8C2 12329 
8D2 123306 
802 12331 
8D& 12332 
8D&E 12333 
8DE& 12334 
8D6 12335 
8D& 12336 
8D6 12337 
806 12338 
8EA 12339 
8EA 12340 
8EA 12341 
8EA 12342 
8EA 12343 
8EA 12344 
8F2 12345 
8F2 12346 
900 12347 
$00 12348 
$00 12349 

© 12350 


ran 


( oe ae ate) 


mes 


ELSEIF ijle_ pA.statistics.tasks_not_in_long wait = 1 THEN 


Memory is not available and no other tasks are ready, so cause the job to swap out. 
Free the pages the job already has and request the total the job wants * The requested 
memory will be ‘reserved’ for the job when it swaps back in. 


mmp$initialize find_next_pfti (sva, rb.tength, exclude partial _ pages, psc_nominai_queue, aste_p, pfti); 


WHILE pfti <> © DO 
mmv$pt_p4 [mmv$pft_p% [pfti] .pti].v := FALSE; 
mmp$delete_ pt entry (pfti, TRUE); 
mmp$relink_page_frame (pfti, mmc$pq_free) ; 
mmp$find_next_pfti (pfti); 

WHILEND; 

mmp$sva_purge_aii_page_map (sva); 


mtp$set_ status abnormal (’MM’, mme$memory _not_avail_for_assign, rb.status); 
IF rb.waitopt = osc$wait THEN 
IF ijle_pA.entry status <> jmc$ies_job_in_memory_ non_swap THEN 
i1jle_p%.memory_ reserve request .requested page count := requested page count ; 
ijle_p%.memory_ reserve _ request .swapout_job := TRUE; 
jimp$set_scheduler_event (jmc$swap_job_for_memory_ reserve) ; 
cst _pA.dispatch_ control.call_ dispatcher :: TRUE; 
ELSE 
mtp$set_status_abnormal (‘MM’, mme$cannot_wait_for_memory, rb.status) ; 
IFEND; 
IFEND; 
ELSE 


Memory iS not available but other tasks are ready; set status so that this task will do 
a short wait before reissuing the assign pages request. This will tet the other tasks go 
idle before causing the job to swap out until memory can be found to honor the assign request. 


mtp$set_status abnormal (’MM’, mme$wait_so_other_tasks_can_run, rb.status); 
IFEND; 


If the job had been forced to swap out and wait for memory to be reserved for it, adjust 
the reserved counts now. : 


IF ijle_ pA.memory reserve _ request .reserved_ page count >» O THEN 


mmv$reserved page _ count := mmv$reserved_ page count - ijle_p%.memory reserve _ request .reserved page count; 
1jle pA.memory reserve request .reserved page count := 0; 
IFEND; 


PROCEND mmp$process_assign_pages; 
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Oo 12352 
0 12353 PROCEDURE mmp$process_cancel_reserve 
Oo 12354 { rb: mmt$rb_assign_pages; 
© 12355 cst_p: Aost$cpu_state_ table); 
Oo 12356 
Oo 12357 VAR 
oO 12358 ijle_p: Ajmt$initiated job_list_entry; 
© 123593 
© 12360 
0 12361 ijle_p : = cst _prA.ijile_p; 
4 12362 
4 12363 ijle_pA.memory_reserve_request .swapout job :: FALSE; 
4 12364 ijle_pA.memory_ reserve _ request .requested page _ count = 0; 
4 12365 mmv$reserved_page_count := mmv$reserved page_count - ijle_pA.memory_ reserve_request .reserved page _ count; 
4 12366 ijle_pA.memory reserve request .reserved page count := 0; 
4 12367 
4 12368 PROCEND mmp$process cancel reserve; 
0 12369 
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Oo 12371 

© 12372 { The purpose of this monitor request is to move a page frame from one PVA to another. 

© 12373 { When the request completes, all pages in the range from <pva_source> to <pva_source>+ 

© 12374 { <length-1> will have been moved to the range of addresses specified by <pva_destinat ion> 
© 12375 { to <pva_dest ination>+<Clength-1>. 

o 12376 { 

Oo 12377 { CAUTION: Be sure to fully understand how the ‘move’ is accomplished before changing this 
© 12378 { procedure. Because mmp$delete_pt_entry USES information and mmp$make_pt_entry 
© 123739 { CHANGES information in the page frame table entry, it iS necessary to ‘move’ the 
© 12380 { page in the following order: 

© 12381 { 1. Delete the source page table entry. 

Oo 12382 { 2. Change the page frame table entry to reflect destination page information. 
© 12383 f{ 3. Make the page table entry for the destination page. 

o 12384 { 4. If necessary, relink the page frame to the queue for the destination segment. 
6 12385 { s. Set the valid bit on the destination page. 

Oo 12386 

© 12387 PROCEDURE [XDCL] mmp$process_move_pages_request 

0 12388 (VAR rb: mmt$rb_move_pages; 

© 12389 cst_p: Aost$cpu_state table) ; 

o 12390 

o 12391 VAR 

© 12392 counmt: 1... 32, 

Oo 12393 destination_aste_p: Ammt$active_segment_table_entry, 

0 12394 destination_fde_p: gft$locked file_desc_entry_p, 

o 12385 destination_pfti: mmt$page_frame_index, 

Oo 12396 destination_pti: integer, 

Oo 12387 destination_ste_p: Ammt$segment_descriptor, 

o 12398 destination stxe_p: Ammt$segment_descriptor extended, 

o 12389 destination _sva: ost$system_virtual_address, 

o 12400 found: boolean, 

Oo 12401 i: integer, 

© 12402 job_ijle_p: Ajmt$initiated_job_list_entry, 

© 124063 mpt_ status: mmt$make_pt_entry_status, 

© 12404 modified: boolean, 

© 12405 number_of pages _to_move: mmt$move_ pages _page_ count, 

© 12406 page_status: gft$page_status, 

Oo 12407 pfte_p: Ammt$page frame _table_entry, 

Oo 12408 pfti: mmt$page_frame_index, 

o 12409 pte_p: Aost$page_table_entry, 

© 124190 reject_offset: ost$segment_offset, , 

Oo 12411 source _aste_ p: AmmtSactive_segment_table_ entry, 

Oo 12412 source _fde_p: gft$locked file _desc_entry_p, 

© 12413 source pti: integer, 

Oo 12414 source ste_p: Ammt$segment descriptor, 

Oo 12415 source stxe_ p: AmmtS$segment_descriptor extended, 

Oo 12416 source sva: ost$system_virtual_address, 

0 12417 status: syt$monitor_ status, 

oO 12418 Sva_of_last_page: ost$system_virtual_address, 

Oo 12418 System_ijle_p: Ajmt$initiated_job_list_entry; 

Oo 12420 

© 12421 

0 12422 rb.status.normal := TRUE; 

4 12423 

4 12424 mmp$verify pva (4rb.pva_source, mmc$sat_read_or_ write, rb.status); 
30 12425 IF NOT rb.status.normal THEN 
38 12426 RETURN; 
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3A 12427 IFEND; 
3A 12428 
3A 12429 mmp$convert_pva (rb.pva_source, cst_p, source sva, source _ fde_p, source _aste_p, source ste_p, 
7E 12430 source stxe_p); 
7E 12431 IF source _aste_p = NIL THEN 
8C 12432 mtp$set_status abnormal (’MM’, mmeSinvalid_pva, rb.status) ; 
8C 12433 RETURN; 
A4 12434 IFEND; 
A4 12435 
A4 12436 mmp$verify pva (Arb. pva_destination, mmc$sat_write, rb.status); 
C6 12437 IF NOT rb.status.normal THEN 
CE 12438 RETURN; 
DO 12439 IFEND; 
DO 12440 
DO 12441 mmp$convert pva (rb. pva_destination, cst_p, destination_sva, destination_fde_p, destination_aste_p, 
114 12442 destination_ste_p, destination_stxe_p); 
114 12443 IF destination_aste_ p = NIL THEN 
11E 12444 mtp$set_ status abnormal (’MM’, mme$invalid_pva, rb.status) ; 
11E€ 12445 RETURN; 
136 12446 IFEND; 
136 12447 
136 12448 IF (rb. length <= 0) OR (rb.length > mmc$move_pages_max_req_ length) THEN 
146 12449 mtp$set_ status abnormal (‘MM’, mmeSinvalid_length_requested, rb.status); 
146 12450 RETURN; 
1SE 12451 IFEND; 
15E 12452 
1SE 12453 IF (rb.length MOD osv$page_size <> 0) THEN 
176 12454 mtp$set_ status abnormal (‘°MM’, mme$length_not_page_ size mult, rb.status); 
176 12455 RETURN; 
18E 12456 IFEND; 
18E 12457 
18E 12458 IF (source sva.offset MOD osv$page size <> ©) OR (destination_sva.offset MOD osv$page_ size <> 0) THEN 
1BE 12459 mtp$set_ status abnormal (‘MM’, mme$pva_not_on_page_boundary, rb.status); 
1BE 12460 RETURN; 
1D6 12461 IFEND; 
1D6 12462 
1D6 12463 IF (source _sva.offset + rb.length >» osc$max_segment_length) OR 
202 12464 (destination _sva.offset + rb.jlength >» osc$max_segment_length) THEN 
202 12465 mtp$set_ status _abnormal (‘’MM’, mmeSinvalid_pva_formed, rb.status) ; 
202 12466 RETURN; 
214 12467 IFEND; 
21A 12468 
214 12469 imp$get_ijle_p (cst_p4.ijl_ordinal, job_ijle_p); 
21a 12470 imp$get_ijle_p (jmv$system_ijl_ordinal, system_ijle_p); 
21A 12471 
21A 12472 rb.moved_ modified page_count := 0; 
211A 12473 rb.number_of pages _ moved := 0; 
21A 12474 
21A 12475 number _of pages to move := rb.tlength DIV osv$page_ size; 
21A 12476 
214 12477 Sva_of_last_page.offset := destination _sva.offset + rb.length; 
21A 12478 
21A 12479 IF (destination_sva.offset + nmumber_of_ pages _to_move * osv$page_ size) > destination_fde_pA.file Timit THEN 
2A0 12480 mtp$set_ status abnormal (‘’MM’, mme$read_ write _beyond_msi, rb.status); 
ZA0 12481 RETURN ; 
2B6 12482 IFEND; 
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2B6 12483 
2BE 12484 IF (destination_aste_p*.queue_id = mmc$pq_ wired) OR (destination_aste_p%.queue_id = mmc$pq_job_fixed) THEN 
2cc 12485 mtp$set_status_abnormal (’MM’, mmeSwired_or_fixed_ segs_illégal, rb.status); 
2Cc 12486 RETURN ; 
2E2 12487 IFEND; 
2E2 12488 
2E2 12489 CASE destination _fde_pA.media OF 
2F6 12490 = gfc$fm_transient_segment = 
2F6 12491 IF (destination_aste_p%.pages_in_memory + number_of pages_to_move > mmv$max_pages_no_file) THEN 
308 12492 page_status := gfc$ps_job_mode work_required; 
308 12493 reject_offset :: destination_sva.offset; 
320 12494 ELSE 
320 12495 page status :: gfc$ps_page_doesnt_exist ; 
324 12496 IFEND; 
328 12497 = gfc$fm_mass_storage_file = 
328 12498 mmv$last_segment_accessed := #SEGMENT (rb.pva_destination) ; 
328 12499 dmp$fetch_multi_page_ status (destination_fde_p, destination _sva.offset, 
37E 12500 number _ of pages _to_ move * osv$page_ size, destination_stxe_pA.file limits enforced, 
37E 12501 reject_offset, page status); 
37E 12502 = gfc$fm_served file = 
3S7E 12503 dfp$fetch_ multi _page_ status (destination_fde_p, destination_sva.offset, 
SAE 12504 number _of pages _to_move * osv$page_size, page_status) ; 
SAE 12505 reject_offset := destination _sva.offset + {number_of_pages_to_move - 1) * osv$page_size; 
3C8 12506 CASEND; 
3C8 12507 
3c8 12508 
3C8 12509 CASE page_status OF 
414 12510 = gfc$ps_page_on_disk, gfc$ps_page_on_server, gfc$ps_page_doesnt_exist = 
418 12511 
418 12512 { These are ok; do nothing 
418 12513 
418 12514 = gfc$ps_temp_reject, gfc$ps_account_limit_exceeded =: 
418 12515 mtp$set_status abnormal (’MM’, mme$temporary_ reject, rb.status); 
418 12516 tmp$cause_task_ switch; 
434 12517 RETURN; 
43a 12518 
43A 12519 = gfc$ps_volume_unavailable = 
43A 12520 mtp$set_status_ abnormal (’MM’, mme$volume_unavailable, rb.status) ; 
434 12521 RETURN ; 
454 12522 
454 12523 => gfc$ps_server_ terminated = 
454 12524 mtp$set_status_abnormal (‘’DF’, dfe$server_has_terminated, rb.status); 
454 12525 RETURN; 
46E 12526 
46E 12527 = gfc$ps_server_allocate required, gfc$ps_job_mode_work_ required = 
46E 12528 set_assign_active (destination_stxe_p, reject_offset); 
496 12529 tmp$set_monitor_fiag (cst_pA.taskid, mmc$mf_segment_mgr_fiag, rb.status); 
4B& 12530 mtp$set_ status abnormal (‘MM‘, mme$dm_assign_active, rb.status); 
4B& 12531 RETURN; 
4CE 12532 
4CE 12533 ELSE 
4CE 12534 mtp$error_ stop (‘mm - unexpected DM error in assign pages’); 
4EE 12535 CASEND; 
4EE 12536 
4EE 12537 
4EE 12538 /move_page/ 
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4EE 12539 

4EE 12540 FOR i := 1 TO number_of_pages_to_move DO 

4F6 12541 #HASH SVA (Source _sva, source pti, count, found) ; 

4FC 12542 IF NOT found THEN 

510 12543 mtp$set_status_ abnormal (‘MM’, mme$source_page_not_in_ memory, rb.status) ; 
510 12544 RETURN; 

$26 12545 IFEND; 

S26 12546 

526 12547 pte_p := Ammv$pt_p4 [source pti]; 

526 12548 Pfti := (pte _ pA.rma * 512) DIV osv$page_ size; 

526 12549 pfte_p := AmmvS$pft_p [pftil]; 

526 12550 

§26 12551 IF ((pfte_pA.active_io_count > 0) AND (pfte_pA.lecked_ page <> mmc$1p_page_in_lock)) THEN 
S6E 12552 mtp$set_status_abnormal (’MM’, mme$io_active_on_move_page, rb.status) ; 
S6E 12553 RETURN; 

§8&8 12554 

§88 12555 ELSEIF (pte_pA.m) THEN 

592 12556 IF (rb.reject_move_if_source_ modified) THEN 

S9A 12557 mtp$set_status_ abnormal (’MM’, mme$modified source page reject, rb.status) ; 
S59A 12558 RETURN; 

5B4 12559 ELSE 

5B4 12560 rb.moved_ modified page count := rbh.moved modified page count + 1; 

SBE 12561 IFEND ; 

SBE 12562 IFEND; 

SBE 12563 


5BE 12564 { Determine the value for modified bit _option here; if mo_change, the status of the modified bit 
SBE 12565 { on the source page must be captured before the page table entry is deleted. 
SBE 12566 


SBE 12567 IF rb.modified_bit_option = mmc$mp_set_modified THEN 
SC6 12568 modified := TRUE; 

SCc 12569 ELSEIF rb.modified_ bit _option = mmc$mp_cilear_modified THEN 
$DO 12570 modified := FALSE; 

5D8 12571 ELSE 

§D8 12572 modified := pte_pA.m; 

SEO 12573 IFEND,; 

SEO 12574 

5EO 12575 { Delete the source page 

SEO 12576 

SEO 12577 mmp$delete_ pt_entry (pfti, TRUE); 

SF4 12578 


5F4 12579 { The destination page should mot be in the page table; if it is, delete it. 
SF4 12580 


SF4 12581 #HASH SVA (destination_sva, destination_pti, count, found) ; 

SFA 12582 IF found THEN 

60E 12583 destination_pfti := (mmv$pt_p4 [destination_pti].rma * 512) DIV osv$page_size; 
60E 12584 mmp$delete_pt_entry (destination_pfti, TRUE); 

63C 12585 mmp$relink_page_ frame (destination _pfti, mmc$pq_free) ; 

650 12586 IFEND; 


650 12587 
650 12588 { Change tne page frame table entry to the destination page information. 


650 12589 
650 12590 pfte_ pA.aste_ p := destination_aste_p; 
650 12591 pfte_pA.sva := destination_sva; 


650 12592 


650 12593 { Make the page table entry for the destination page. If the page table is full, restore the source page 
650 12594 { (that cannot fail) and return. Job mode will reissue the request, starting after the last page that 
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650 12595 { was moved. 
650 12596 { NOTE: make _ pt_entry sets the USED bit and stores the ASID and RMA in the page table entry; it 


650 12597 { also stores the PTI in the page frame table entry and increments the PAGES _ IN _ MEMORY count 
650 12598 { in the active segment table entry. Make_pt_entry does NOT set the valid bit ir? the 
650 12599 { page table entry. 

650 12600 

650 12601 

650 12602 mmp$make_pt_entry (destination_sva, pfti, destination_aste_p, pfte_p, mpt_status); 

B8C 12603 IF mpt status = mmc$mpt_page_table_full THEN 

6834 12604 mmv$async_work.pt_full_aste_p := destination_aste_p; 

694 12605 mmvS$async_work.pt_full_sva := destination_sva; 

694 12606 mmv$async_work.pt_ full := TRUE; 

694 12607 mmv$time_to_call_mem_mgr := 0; 

694 12608 osv$time_to_ check _asyn := 0; 

694 12609 pfte pr.aste p :* source aste_p; 

694 12610 pfte pA.sva :* source $Sva; 

694 12611 mmp$make_pt_entry (source _sva, pfti, source_aste_p, pfte_p, mpt_status) ; 

SFO 12612 IF mpt_ status <> mmc$mpt_done THEN 

6F8 12613 mtp$error stop (’MOVE PAGES -- COULD NOT REMAKE PAGE TABLE ENTRY’); 

718 12614 IFEND; 

718 12615 mmv$pt_pA [pfte_ pA. pti].v := TRUE; 

718 12616 mtp$set_status abnormal (’MM’, mme$page_table_full, rb.status); 

718 #12617 RETURN; 

742 12618 IFEND; 

742 #12619 

742 12620 { Store the correct ijl ordinal in the page frame table entry. If the queue the source 

742 12621 { page was in is not the same as the queue for the destination segment, relink the page. 

742 12622 { If the page is going from the shared queue to a job working set, the pft.ijil_ordinal 

742 12623 { must be changed and then the page relinked. If the page is going from a job working 

742 12624 { set to the shared queue, the page must be relinked and then the pft.ijl_ordinal 

742 12625 { changed. Adjust active io counts if the page changes queues. 

742 12626 

742 12627 IF destination_aste_p’%.queue_id >=: mmc$pq_job_base THEN 

752 12628 IF pfte_pA.queue_id >= mmc$pq_job_base THEN { MUST be the same UWS } 

75A 126293 IF pfte_pA.iji_ordinal <> destination_aste_ pA.ijl_ordinal THEN 

76C 12630 mtp$error_ stop (’MM - MOVE PAGES - jws to jws move’); 

78C 12631 IFEND; 

790 12632 ELSE { shared queue to job working set } 

790 12633 pfte_pA.ijl_ordinal := cst_pA.ijl_ordinal; 

790 12634 mmp$relink_page_ frame (pfti, destination_aste_pA.queue_id)j; 

TAC 12635 jobLijle p%.inhibit_swap_count :: job_ijle_pA.inhibit_swap_count + pfte_ pA.active_io_count; 
TAC 12636 job_ijle_p%.active_io_page_ count := job_ijle_p4.active_io_page_ count + pfte_pA.active_io_count ; 
TAC 12637 system_ijle_ pA.active_io_page_count := system_ijle_pA.active_io_ page count - 

706 12638 pfte pA.active_io_count ; 

7D6 12639 IFEND; 

7DA 12640 ELSE { destination is the shared queue } 

TDA 12641 IF pfte_pA.queue_id >= mmc$pq_job_base THEN { job working set to shared queue } 

7E2 12642 mmp$relink_ page frame (pfti, destination_aste_p%.queue_id) ; 

7FG6 12643 pfte_ pA.iji_ordinal := jmv$system_ijl_ordinal; 

7FGE 12644 job_ijle_pA.inhibit swap _count := job_ijle_pA.inhibit swap_count - pfte_ pA.active_io_count,; 
7FGE 12645 job_ijle_p4%.active_io_page_ count := job_ijle_pA.active_io_page_ count - pfte pA. active_io_count,; 
7FE 12646 Ssystem_ijle_pA.active io page count := system_ijle_p4.active io page count + 

828 12647 pfte pA.active_io count; 

828 12648 IFEND; 

828 12649 IFEND; 


828 12650 
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TRUE; 
modified; 


rb.number_of pages_moved + 1; 


(rbo.number_of pages _moved < number_of_pages_to_move) THEN 


7% source sva.offset + osv$page_size; 


IF mmv$multiple caches OR mmv$multiplte page maps THEN 


(destination_sva); 


828 12651 mmv$pt_ pA [pfte_pA.pti]l.v := 
828 12652 mmv$pt_pA [pfte_ pA.pti].m := 
828 12653 
828 12654 rb.number_ of pages moved := 
828 12655 
828 12656 IF 
854 12657 source sva.offset 
854 12658 destination_sva.offset :: 
878 12659 IFEND; 
878 12660 
878 12661 FOREND /move_page/; 
87E 12662 
87E 12663 
88E 12664 mmp$purge_all_cache_map_proc,; 
898 12665 ELSE 
898 12666 mmp$sva_purge_all_cache 
8AE 12667 mmp$purge_all_map_proc; 
8BE 12668 IFEND; 
8B6E 12669 
8BG 12670 PROCEND mmp$process_move_pages_ request ; 
oOo 12671 
Oo 12672 


SOURCE LIST OF mmm$page_fault_processor 


MMPSPROCESS ASSIGN _ CONTIG MEM 


© 12675 
Oo 12676 PROCEDURE [XDCL] mmp$process assign_contig_mem 
oO 12677 (VAR rb: mmt$rb_assign_contig memory; 
© 12678 cst_p: Aost$cpu_state table) ; 
Oo 12679 
Oo 12680 VAR 
Oo 12681 assign_contiguous: boolean, 
0 12682 assigned pages: mmt$page_frame_index, 
© 12683 aste_p: Ammt$active_segment_tabie_ entry, 
© 12684 count: 1 32, 
© 12685 fde_p: gftSlocked file desc_entry_p, 
© 12686 first _pfti: mmt$page_frame_index, 
© 12687 found: boolean, 
© 12688 ijl_p: Ajmt$initiated_job_list_entry, 
Oo 12689 index: integer, 
© 12690 inhibit i0: boolean, 
Oo 12691 io_id: mmt$io_identifier, 
© 12692 ipti: integer, 
© 12683 mceount: integer, 
© 12694 pages requested: 0 , OFFFF( IB), 
o 12695 pfti: integer, 
© 12696 pstatus: mmt$page_pull_status, 
© 12697 qcb_p: Ammt$page_ queue _list_entry, 
© 12698 recount: integer, 
Oo 12699 Save pfti: integer, 
0 12700 Starting pfti: integer, 
Oo 12701 ste_p: Ammt$segment_ descriptor, 
© 12702 stxe_p: Ammt$segment_descriptor extended, 
© 12703 sva: ost$system_virtual_address, 
© 12704 test_sva: ost$system_virtual_ address, 
Oo 12705 write status: mmt$write_ page to_disk_status; 
© 12706 
Oo 12707 rb.status.normal := TRUE; 
i & 12708 mmp$verify pva (Arb.process virtual_address, mmc$sat_write, rb.status) ; 
30 12708 IF NOT rb.status.normal THEN 
38 12710 RETURN ; 
3A 12711 IFEND; 
3A 12712 
3A 12713 mmp$convert_pva (rb.process_virtual_address, cst_p, sva, fde_p, aste_p, ste_p, 
7E 12714 pages requested := (#OFFSET (rb.process_ virtual_address) + rb.requested_ length 
7E 12715 osv$page_size - (#OFFSET (rb.process virtual_address) DIV osv$page_size) 
TE 12716 test_sva.asid : = sva.asid; 
7E 12717 test_sva.offset := ((sva.offset DIV osv$page_ size) * osv$page_size); 
TE 12718 
7E 12719 {Verify that none of the pages are currently assigned. 
JE 12720 
7E 12721 FOR index :* 1 TO pages requested DO 
C4 12722 #HASH_SVA (test _sva, ipti, count, found); 
C6 12723 IF found THEN 
DA 12724 mtp$set_ status abnormal (’MM’, mme$pages_already_ assigned, rb.status); 
DA 12725 RETURN; 
F2 12726 IFEND; 
F2 12727 test_sva.offset := test_sva.offset + osv$page_ size; 
F2 12728 FOREND; 
104A 12729 
10A 12730 
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destination_sva.offset + osv$page_size; 


1989-08-21 


1989-08-21 
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1OA 12731 CASE rb.pass_count OF 
120 12732 = mmc$scan_pft_for_free_or_avail, mmc$scan_pft_free_avail_notmod = 
120 12733 IF rb.pass_ count = mmc$scan_pft_for_free_or_avail THEN 
128 12734 mmv$assign_contiguous_pass_cnt.pass_one_count :: mmv$assign_cont iguous_pass_cnt.pass_one_count + 1; 
136 12735 ELSE 
136 12736 mmv$assign_ contiguous _pass_cnt.pass_two_count := mmv$assign_contiguous pass_cnt.pass_two_count + 1; 
140 12737 IFEND; 
140 12738 Starting _pfti := 0; 
1490 12739 scan _pft_for_pages (rb.pass_count, pages_requested, starting _pfti); 
15C 12740 
15C 12741 IF (starting pfti = 0) THEN 
164 12742 mtp$set_status_ abnormal (‘MM’, mme$unable_to_assign_contig_ mem, rb.status) ; 
164 12743 RETURN; 
17E 12744 ELSEIF rb.pass_count = mmc$scan_pft_free_avail_notmod THEN 
186 12745 
186 12746 { We have successfully found the requested pages. A second scan 
186 12747 { of these pages is required, if a page is still usable, we go 
186 12748 { ahead and remove it from the job working set. 
186 12749 
186 12750 /1\080p/ 
186 12751 WHILE starting _ pfti <> © DO 
18A 12752 pfti := starting pFfti; 
184 12753 assign_contiguous := TRUE; 
184A 12754 
184 12755 /verify _pages_removable/ 
118A 12756 FOR index := 1 TO pages requested DO 
198 12757 IF (mmv$pft_p% [pfti].queue_id = mmc$pq_avail) OR 
104 12758 ((mmv$pft_pA [pfti].queue_id = mmc$pq_free) AND (mmv$pft_p’ [pfti].active_io_count = 0)) 
1€4 12758 THEN 
104 12760 pfti :25 pfti + 1; 
1C4 12761 CYCLE /verify pages _removabie/; 
1CE 12762 ELSE 
1CE 12763 IF ((mmv$pft_ pA [pfti].queue_id >= mmc$pq_shared_first) AND 
21C 12764 (mmv$pft_pA [pfti].queue_id <= mmc$pq_shared_last)) OR 
21C 12765 (mmv$pft_ pA [pfti].queue_id = mmc$pq_job_working set) THEN 
21C 12766 IF mmv$pft_pA [pfti]. locked page = mmc$1p_not_ locked THEN 
23C 12767 IF (NOT mmv$pt_pA [mmv$pft_pA [pfti].pti]l.m) AND (mmv$pft_pA [pfti].active_io_count = 
25C 12768 0) THEN ; 
25C 12769 mmp$get_inhibit_io_status (mmv$pft_pA [pfti].ijl_ordinal, TRUE {lock aji} , inhibit_io, 
37A 12770 ijl_p); 
37A 12771 IF NOT inhibit_io THEN 
382 12772 mmp$remove_ page _from_jws (pfti, iji_p, mcount, recount); 
3AA 12773 pfti := pfti + 1; 
3AR 12774 jmp$unlock_ajl (iji_p); 
462 12775 CYCLE /verify_pages_removable/j; 
466 12776 IFEND; 
466 12777 IFEND ; 
466 12778 IFEND; 
466 12779 IFEND; 
466 12780 IFEND; 
466 12781 assign_contiguous := FALSE; 
466 12782 EXIT /verify_pages_removablie/ ; 
46E 12783 FOREND /verify_pages_removabie/; 
472 12784 
472 12785 IF assign_contiguous THEN 
476 12786 EXIT /loop/; 
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47E 
47E 
47E 
498 
498 
&AO0 
4Ao0 
4A0 
4A8 
4As 
4BE 
4BE 
4BeE 


12787 
12788 
12789 
12790 
12791 
12792 
12793 
12794 
12795 
12796 
12797 
12798 
127939 
12800 
12801 
12802 
12803 
12804 
12805 
12806 
12807 
12808 
12809 
128190 
12811 
12812 


{ 


ELSE 
starting pfti :5 pfti; 
scan_pft_for_pages (rb.pass_count, pages requested, 
IFEND; 
WHILEND /loop/; 
IFEND; 


IF starting pfti = © THEN 


starting pfti); 


mtp$set_status_abnormal (’MM’, mme$unable_to_assign_contig_mem, rb.status); 


RETURN ; 
IFEND ; 


pfti :: starting pfti; 
FOR index := 1 TO pages_requested 00 
IF mmv$pft_p [pfti].queue_id = mmcec$pq_avail THEN 
mmp$delete_ pt_entry (pfti, TRUE); 
mmp$relink page frame (pfti, mmc$pq_free) ; 
IFEND; 
pfti := pfti + 1; 
FOREND; 


mmp$Sassign_page_ frame (sva, aste_p, pages requested, starting _pfti, 


pstatus); 


If pages assigned was not equal to pages requested, (usually means page-table-full), 


{ any pages assigned and cause the request to be reissued. 


{ 
{ 


{ 
{ 


IF pages requested <> assigned pages THEN 
pfti := first _pfti; 
IF assigned pages > O THEN 
WHILE pfti <> © DO 
mmp$delete_pt_entry (pfti, TRUE); 


save_pfti := mmv$pft_ pA [pfti]. link. bkw; 
mmp$relink_page_frame (pfti, mmc$pq_free) ; 
pfti :5 save_pfti; 
WHILEND; 
IFEND; 


cst_pA.dispatch control.asynchronous_ interrupts pending 
tmp$cause_ task_switch; 
tmp$reissue_monitor_request ; 
mmv$assign_contig reject := mmvS$assign_contig_ reject + 
RETURN; 

IFEND; 


>= TRUE; 


1; 


Each of the pages assigned must be preset. After the page is preset, 


the valid bit in the page table is set. 


WHILE starting pfti <> © DO 
mmp$preset_real_memory (mmv$pft_pA [starting _pfti].sva, 


mmv$pt_p4 [mmv$pft_p4 [starting pfti].pti].v := TRUE; 
starting pfti := mmv$pft_pA [starting pfti] . link. bkw; 
WHILEND; 


If the pages were assigned to a job-fixed segment, the pages 
must be moved from the end of the job-fixed page queue to the 
beginning of the job-fixed page queue. Moving the pages will 


fde_pA.preset_value) ; 


assigned_pages, first_pfti, 


free 
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658 12843 { make swapping and job recovery of jobs with contiguous pages 
658 12844 { assigned possibie. A count of the job-fixed contiguous pages 
658 12845 { is maintained in the IJL entry of the job. 
658 12846 
658 12847 IF mmv$pft_p4 [first_pfti].queue_id = mmc$pq_job_fixed THEN 
67E 12848 jmp$get_ijle_p (mmv$pft_pA [first _pfti]l.ijl_ordinal, ijl_p); 
67E 128493 qcb_p := Aiji_pA.job_page_queuve_list [mme$pq_job_fixed] ; 
67E 12850 mmv$pft_ pA [qceb_ pA. link. bkw]. link. fwd : = gqcb_pA. link. fwd; 
67E 12851 save pfti := qcb_ pA. link. fwd; 
67E 12852 qcb_pA.1ink.fwd := mmvS$pft_pA [first_pfti]. link. fwd; 
67E 12853 mmv$pft pA [first_pfti]. link. fwd := 0; 
S87E 12854 mmv$pft pr [qcb_ pA. link. fwd].link.bkw := 0; : 
67E 12855 mmv$pft pA [save _pfti].link.bkw := qcb_pA. link. bkw; 
67E 12856 qcb_pA.1ink.bkw := first_pfti,; 
67E 12857 ijl_p’.job_fixed contiguous _ pages :+: ijl_p’.job_fixed contiguous pages + pages requested; 
718 #12858 IFEND; 
718 #128598 
718 12860 [ The following global variable maintains a count of all of the contiguous 
718 12861 { pages currently assigned in the system. This count includes both wired and 
718 12862 { job-fixed contiguous pages assigned. 
718 12863 
718 12864 total_contig pages assigned :: total contig pages _ assigned + pages _ requested; 
724 12865 
724 12866 = mmc$scan_pft_write_mod_pages = 
724 12867 
724 12868 { Pass three will simply scan through the page frame table 
724 12869 { and write any pages in a job working set or the shared 
724 12870 { queue which are not locked and the swap status of the 
724 12871 { job does not prohibit us from writing the page to disk. 
724 12872 
724 12873 io _id.specified := FALSE; 
724 12874 
724 12875 {write pages to disk 
724 12876 
724 12877 FOR pfti := UPPERBOUND (mmv$pft_p4) TO LOWERBOUND (mmv$pft_p4) DO 
74A 12878 IF ((mmv$pFft_pA [pfti].queue_id >= mmc$pq_shared_ first) AND 
798 128798 (mmv$pft_pA [pfti].queue_id <= mmc$pq_shared_last)) OR 
798 12880 (mmv$pft_pA [pfti].queue_id = mmc$pq_job_working set) THEN 
798 12881 IF mmv$pft_pA [pfti]. locked _ page = mmc$1p_not_locked THEN 
7B8 12882 mmp$get_inhibit_io status (mmv$pft_p4 [pfti].ijl_ordinal, TRUE {lock aj1l} , inhibit_io, ijl_p); 
8D6 12883 IF NOT inhibit_io THEN 
8DE 12884 ofp$mtr_get_locked_fde_p (mmv$pft_pA [pfti].aste_pA.sfid, ijl_p, fde_p); 
982 12885 mmp$write page _to_ disk (fde_p, pfti, ioc$write_ page, io_id, mmv$multi_page_write, write status); 
SB&6 12886 jmp$uniock_ajl (ijl_p); ° 
A&2 12887 IFEND; 
A&2 12888 IFEND; 
A&2 12889 IFEND; 
A&82 12890 FOREND ; 
A&G 12891 mmv$assign_cont iguous_pass_cnt.pass_ three count := mmv$assign_cont iguous pass_cnt.pass_three count + 1; 
AS2 12882 ELSE 
A92 12893 mtp$set_status_ abnormal (’MM’, mmeSinvalid_ request, rb.status) ; 
AA& 128894 CASEND; 
AASB 12895 
AA& 12896 PROCEND mmp$process_assign_ contig _mem; 
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12898 
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rene ees es 


° 


PROCEDURE scan_pft_for_ pages 
( pass_count: mmtS$assign_contig pass_ident ; 
pages requested: 0 .. Of FfFf(16); 
VAR starting pfti: integer); 


VAR 
ijl_p: Ajmt$initiated  job_list_entry, 
inhibit io: boolean, 
page count, 
pfti: integer; 


IF starting pfti = © THEN 
IF mmv$image_ file.active THEN 
pfti := (osv$180_memory_limits.deadstart_upper DIV osv$page_size) - 1; 
ELSE 
pfti :: UPPERBOUND (mmv$pft_p%) + 1; 
IFEND; 
ELSE 
pfti := starting _pfti; 
IFEND; 
page _count := 0; 


Pass one and two will check for free or available pages. 

In addition to searching for free or available pages, pass two 
will search for pages it can remove from a job working set. 
Pages are not removed from a job working set until we are 
reasonably sure we can assign the requested number of 
contiguous pages. 


/search_loop/ 


WHILE (pfti >» LOWERBOUND (mmv$pft_p4)) AND (page_count < pages_requested) DO 
pfti :: pfti - 1; 


{Pass one will check for free or available pages. 


IF (mmv$pft_pA [pfti].queue_id = mmc$pq_avail) OR ((mmv$pft_pA [pftil.queue_id = mmc$pq_ free) AND 
(mmv$pft_pA [pfti].active_io_count = 0)) THEN 
page _ count := page count + 1; 
CYCLE /search_loop/; 
ELSE 
IF pass_count: = mmc$scan_pft_free avail_notmod THEN 
IF ((mmv$pft_pA [pfti].queue_id >= mmc$pq_shared_first) AND 
(mmv$pft_pA [pfti].queue_id <= mmc$pq_ shared_last)) OR 
(mmv$SpFft_pA [pfti].quevue_id = mmc$pq_job_working set) THEN 
IF mmv$pft_pA [pfti].locked_ page = mmc$1p_not_locked THEN 


IF (NOT mmv$pt_pA [mmv$pft_pA [pfti].pti].m) AND (mmv$pft_pA [pfti] .active_io_count = 0) THEN 
mmp$get_inhibit_io_status (mmv$pft_p4 [pfti]l.ijl_ordinal, FALSE flock ajl} , inhibit_io, 


ijl_p); 

IF NOT inhibit io THEN 
page count := page_count + 1; 
CYCLE /search_loop/; 

IFEND; 

IFEND; 
IFEND; 
IFEND; 
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NOS/VE CYBIL/II 


is swap resident, 


[pfti].ijl_ordinal, 
jimc$iss swapped_io_complete) 


1.0 89102 1989-08-21 


the jobs resources can be freed. 


ijl_p); 
AND 
mmc$pq_job_working set) 


id = THEN 


(mmv$pft_pA [pfti].ijl_ordinal) ; 


182 12954 ELSE 
182 12955 
182 12956 { If the swap status of the job 
182 12957 { The page must be in the job working set--pages 
182 12958 
182 12959 imp$get_ijle_p (mmv$pft_pA 
182 12960 IF (ijl_p4.swap_status = 
1DA 12961 (mmv$pft_pA [pfti].queue_ 
1DA 12962 
1D4 12963 {swap status is swap resident 
1DA 12964 
1DA 12965 isp$free swapped_johs memory 
1EA 12966 page count := page count + 1; 
1EQ 12967 CYCLE /search_loop/; 
1FO 12968 IFEND; 
1FO 12969 IFEND ; 
1FO 1239370 IFEND; 
1FO 12971 page_count := 0; 
1FO 12972 WHILEND /search_loop/; 
204 12973 
204 12974 IF page count < pages _requested THEN 
208 12975 starting pfti := 0; 
20E 12976 ELSE 
20E 12977 starting pfti := pfti; 
212 12978 IFEND ; 
212 12979 
212 12980 PROCEND scan_pft_for pages; 
o 12981 
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syc$rc_advise_out_in)) AND 


rbo.status); 


Oo 12984 

° 

© 12986 {Name: 

© 12987 { mmpS$advise_request_processor 

© 12988 {Purpose: 

o 12989 { This procedure processes ADVISE requests from job mode. 
© 12990 {Input: 

o 12991 { rb - request block from job mode 

© 12982 {Output: 

o 12993 { none 

© 12994 {Error Codes: 

o 129985 { none 

© 12996 {notes: 

o 12897 { - No error is generated if some (or ail) of the pages are 
© 12998 { already assigned. 

° 

© 13000 

Oo 13001 PROCEDURE [XDCL] mmpS$advise_request_processor 
Oo 13002 (VAR rb: mmt$rb_advise; 

© 13002 cst_p: Aost$cpu_state table); : 

© 13004 

°o 13005 VAR 

© 13006 fde_p: gft$locked file _desc_entry _p, 

© 13007 ijle_p: AjmtS$initiated_job_list_entry, 

Oo 13008 ste_p: Ammt$segment_descriptor, 

© 13009 stxe_p: Ammt$segment_ descriptor extended, 
© 13010 io_id: mmt$io_identifier, 

© 13011 check_aio_ slowdown: boolean, 

© 13012 cptime: ost$cp_time_value, 

© 13013 page _ count: integer, 

© 13014 page_in_count: mmt$page_frame_index, 

© 13015 pfti: mmt$page_ frame_index, 

© 13016 aste_p: AmmtS$act ive segment _table_entry, 
© 13017 pstatus: mmtS$page_pull_status, 

© 13018 Sva: ost$system_virtual_address; 

© 130198 

© 13020 

o 13021 rb.status.normal := TRUE; 

4 13022 

4 13023 IF NOT mmv$tables_initialized THEN 

1A 13024 RETURN 

t¢ 13025 IFEND ; 

1¢ 13026 

1€¢ 13027 io_id.specified ::* FALSE; 

1¢ 13028 

1C 130293 

1C¢ 13030 {Process the ADVISE OUT part of the request. 

1€¢ 13031 

1C 13032 /adv_request/ 

1¢ 13033 BEGIN 

1C 13034 IF ((rb.reqcode = syc$rc_advise_out) OR (rb.reqcode = 
3E 13035 (rb.out_ length > 0) THEN 
3E 13036 mmp$verify pva (Arb.out_pva, mmc$sat_read_or_write, 
60 13037 IF NOT rb.status.normal THEN 

68 13638 EXIT /adv_request/; 

6A 13039 IFEND; 


in other queues are not necessarily freed (e. 


9. 


13:33:34 


wired). 


13:33:34 


12985 [oon nme ne ee ne ee ee ee ee ee ee eee eee 


12999 [n-ne nnn nn en ee ee ee re ne ee ee ee eee 
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6A 13040 mmp$convert_pva (rb.out_pva, cst_p, sva, fde_p, aste_p, ste_p, stxe_p); 
AE 13041 IF stxe_pA.access_ state <> mmc$sas_allow_access THEN 
BA 13042 EXIT /adv_request/; 
BC 13043 IFEND; 
BC 13044 IF (aste_p4%.queue_id <> mmc$pq_job_working_ set) AND (aste_pA%.queue_id < mmc$pq_ shared_ first) AND 
DA 13045 (aste_pA.queue_id > mmc$pq_shared_last) THEN 
DA 13046 mtp$set_status_abnormal (’MM’, mme$segment_not_pageablie, rb.status) ; 
DA 13047 EXIT /adv_request/; 
Ec 13048 IFEND, 
Ec 13049 
EC 13050 IF fde_pA.media = gfc$fm_transient_ segment THEN {!Should this he ignored??} 
F&8 13051 mtp$set_status_abnormal (’MM’, mmeSsegment_not_assigned_device, rb.status); 
F8 13052 EXIT /adv_request/; 
1O0E 13053 IFEND; 
1O0E 13054 mmp$remove_pages_working set [(Sva, rb.out_length + #OFFSET (rb.out_pva) - sva.offset, aste_p, 
1580 13055 page_count); 
180 13056 IFEND; 
180 13057 
150 13058 
150 13059 {Process the ADVISE IN part of the request. 
150 13060 
150 13061 ijle_p :* cst _pA.ijle_p; 
150 13062 ((rb.reqcode = syc$rc_advise_in) OR (rb.reqcode = syc$rc_advise_out_in)) AND (rb.in_length > ©) THEN 
170 13063 mmp$verify_ pva (Arb.in_pva, mmc$sat_read_or_write, rb.status); 
192 13064 IF NOT rb.status.normal THEN 
194A 13065 EXIT /adv_request/; 
198C 13066 IFEND; 
19C 13067 mmp$convert_pva (rb.in_pva, cst_p, sva, fde_p, aste_p, ste _p, stxe_p); 
1EO 13068 IF stxe_pA.access_ state <> mmc$sas_allow_access THEN 
1EC 13069 EXIT /adv_request/; 
1EE 13070 IFEND; 
1EE 13071 page_count :: (#OFFSET (rb.in_pva) + rb.in_ length - 1) DIV osv$page_size - 
1EE 13072 (#OFFSET (rb.in_pva) DIV osv$page_size) + 1; 
1EE 13073 
1EE 13074 /advise_in/ 
1EE 13075 WHILE mmv$reassignabie page _frames.now >= mmv$aggressive_aging_level_2 DO 
21A 13076 mmp$page_pull_hash_sva (sva, aste_p, page_in_count, pstatus, pfti); 
34E 13077 IF page_in_ count = 0 THEN 
3586 13078 mmp$page_pull (sva, fde_p, cst_p, aste_p, stxe_p, io _id, page_count, ioc$read_ page, TRUE, 
3B6 13079 page_in_count, pstatus, pfti); 
SBE 13080 IFEND; 
386 13081 page count := page count - page in count ; 
3B6E 13082 CASE pstatus OF . 
44E 13083 = ps_no_memory, ps_Jow_on_ memory = 
44E 13084 tmp$cause_task_switch; 
456 13085 EXIT /advise_in/; 
4SE 13086 = ps_io_ temp_reject = 
4SE 13087 tmp$cause_ task_switch; 
466 13088 EXIT /advise_in/; 
46E 13089 = ps_pt_full = 
46E 13090 cst _pA.dispatch_control.asynchronous interrupts pending := TRUE; 
46E 13091 tmp$cause task switch; 
477A 13092 EXIT /advise_in/; 
482 13093 = pS_read beyond _eoi =: 
482 13094 mtp$set status abnormal (’MM’, mme$read_beyond_eoi, rb.status}); 
482 13095 EXIT /advise_in/; 
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49E 
49E 
49E 
4BA 
4BA 
ABA 
4D6 
4D6 
4DE 
4DE 
ADE 


13096 
13097 
13098 
13099 
13100 
13101 

131602 
13103 
13104 
13105 
13106 
13107 
13108 
13108 
13110 
13111 

13112 
13113 
13114 
13115 
13116 
13117 
13118 
13119 
13120 
13121 

13122 
13123 
13124 
13125 
13126 
13127 
13128 
13129 
13130 
13131 

13132 
13133 
13134 
13135 
13136 
13137 
13138 
13139 
13140 
13141 
13142 
13143 
13144 
13145 
13146 
13147 
13148 
13149 
13150 
13151 


= ps_beyond_file_limit = 
mtp$set_status_abnormal (’MM’, mme$read_write_beyond_ms1, rb.status); 
EXIT /advise_in/; 
= psS_Mmo_extend permission = 
mtp$set_status_abnormal (’MM’, mmeS$wr ite _beyond_eoi_no_append, rb.status); 
EXIT /advise_in/; 
> psS_volume_unavailable, ps_server_terminated, ps_job_ work required = 
EXIT /advise_in/; 
= ps_allocate_ required _on_server, ps _new_page_ assigned = 
Tjle_pA.statistics.paging statistics.new _pages_ assigned :: 
ijle_pA.statistics.paging statistics.new_pages_assigned + page_in_count,; 
cst _pA.xcb pA.paging statistics.new_pages_assigned ;:: 
cst_pA.xcb_pA.paging statistics.new pages _ assigned + page _in_count; 
mmv$paging statistics.ai_pages.new := mmv$paging statistics.ai_pages.new + page _in_ count ; 
IF pstatus = ps_allocate_ required _on_ server THEN 
EXIT /advise_in/; 
IFEND; 
> ps_found_on_ server = 
ijle pA.statistics.paging statistics.pages_from_server :: 
ijle_pA.statistics.paging statistics.pages_ from_server + page_in_count ; 
cst_pA.xcb_ pA.paging statistics. pages_ from server :=: 
cst_p4.xcb_p4A.paging statistics.pages_ from server + page_in_count; 
mmv$paging statistics.ai_pages.server := mmv$paging_statistics.ai_pages.server + page_in_count ; 


> ps_found_in_avail, ps_found_in_avail modified = 
ijie_pA.statistics.paging statistics.pages_reclaimed from queue :: 
ijle_pA.statistics.paging statistics.pages_ reclaimed from_queue + page_in_ count; 
cst_pA.xcb pA.paging statistics.pages reclaimed _from_queue :=: 
cst_p4.xcb_ pA.paging_ statistics.pages reclaimed from _queue + page_in_count; 
mmv$paging statistics.ai_pages.reclaim := mmv$paging_statistics.ai_pages.reciaim + page_in_count ; 


= ps_found_on_disk = 
ijle_pr.statistics.paging statistics.page_in_count :: 
ijle_pA.statistics.paging_ statistics.page_ in_count + page _in_count; 
cst_pA.xcb pA.paging statistics.page in count := cst _pA.xcb_p’”.paging statistics.page_ in_count + 
page_in_count; 
mmv$paging statistics.ai_pages.disk := mmv$paging statistics.ai_pages.disk + page_in_count,; 
IF ijle_p’%.active_io requests > mmv$advise_in_aio_limit THEN 
EXIT /advise_in/; 
IFEND; 
ELSE 
CASEND; 
IF page count <= 0 THEN 
EXIT /advise_in/; 
IFEND; 
Sva.offset := sva.offset + (page_in_count * osv$page_size); 
WHILEND /advise_in/; 


{Scan the JWS if the job cp time exceeds the aging threshold. 


IF mmv$aging_ algorithm >= 4 THEN 
cptime := ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
ELSE 
cptime :: ijle_pA.statistics.cp_time.time_ spent_in mtr mode + 
ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
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SFC 13152 IFEND; 
SFC 13153 IF cptime > cst_pA. jcb_p4.cptime_next_age working set THEN 
608 13154 mmp$age_job_working set (ijle_p, cst_p4.jcb_p); 
61C 13155 IFEND; 
61C 13156 check_aio_stowdown := (ijle_pA.job_page_queue_list [mmc$pq_job_working set].count > 
61C 13157 cst_p4. jcb_p4A.max_working set_size) ; 
61C 13158 IF check_aio_slowdown OR (ijle_p4.job_page_queue_list [mmc$pq_job_working_ set].count > 
63C 13159 mmv$max_ working set size) THEN 
63C 13160 mmp$trim_job_working set (ijle_p, cst_p4.jcb_p, FALSE {trim_to_swap_size:false} ); 
658 13161 IF check_aio_sTlowdown AND (ijle_p4.active_io_requests > mmv$maxws_aio_threshold) THEN 
668 13162 mmv$maxws aio count : += mmv$maxws_aio_count + 1; 
668 13163 cst_p4.xcb_ pA.maxws_ aio_slowdown := cst_p4.xcb_p4.maxws aio Slowdown + 1; 
668 13164 ijle_p4.maxws_aio_slowdown_display :=: ((mmv$maxws_aio_ slowdown DIV 
668 13165 mmv$jwS_queue_age_interval) + 1) MOD 256; 
668 13166 tmp$cause_ task_switch; 
BAC 13167 IFEND ; 
6BO 13168 ELSEIF ijle_p”.active_io_requests > mmvS$aio_limit THEN 
6BC 13169 tmp$cause task _switch; 
6C4 13170 mmv$aio_limit_ count := mmv$aio_limit count + 1; 
6CE 13171 IFEND; 
6CE 13172 
6CE 13173 IF cst_p4.xcb_pA.paging statistics.working set _max_used < ijle_pA. 
6DE 13174 job_page_queue_list [mmc$pq_job_working set].count THEN 
6DE 13175 cst_p4.xcb_pA.paging statistics.working set_max_used := ijle_pA. 
6DE 13176 job_page_queue_ list [mmc$pq_job_working set] .count ; 
6DE 13177 IF ijle_pA.statistics.paging statistics.working set_max_used < ijie_p”. 
6EE 13178 job_page_queue_ list [mmc$pq_job_working set].count THEN 
6EE 131795 ijle_pA.statistics.paging statistics.workinmg set_max_used := ij1e_p%. 
6F2 13180 job_page_queve_list [mmc$pq_job_working set] .count; 
6F2 13181 IFEND ; 
6F2 13182 IFEND ; 
6F2 13183 
6F2 13184 {Free queve must be replenished if the number of freetavail pages is below the threshold. 
6F2 13185 
6F2 13186 check_free_queues (cst_p) ; 
T3484 13187 
73A 13188 IFEND; {f{advise-in processing} 
734 13189 
730A 13190 END /adv_request/; 
73a 13191 
773A 13192 
734 13193 
730A 13194 PROCEND mmp$advise_request_processor ; 
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13196 
131897 
13198 
13199 
132006 
13201 
13202 
13203 
13204 
13205 
13206 
13207 
13208 
13209 
13210 
13211 
13212 
13213 
13214 
13215 
13216 
13217 
13218 
13219 
13220 
13221 
13222 
13223 
13224 
13225 
13226 
13227 
13228 
132293 
13230 
13231 
13232 
13233 
13234 
13235 
13236 
13237 
13238 
13239 
13240 
13241 


13242 


13243 
13244 
13245 
13246 
13247 
13248 
13248 
13250 
13251 


ee i i er wie wee SR etetare mls eee erw eee iene 
{ 
{ The purpose of this request is to assign pages of real memory to the 
{ address space of monitor. If the page frames cannot be assigned because 
{ no memory is available or because of a ‘page table full’ condition, 
{ the request will be rejected. If the PVA is 
{ invalid or a page is already assigned, a system error halt will occur. 
{ Pages are NOT preset. 
{ 
{ MMPSASSIGN_ PAGE TO MONITOR (P, PAGE COUNT, PRESET, STATUS) 
{ 
{ P: (INPUT) This parameter specifies the page to be assigned 
{ 
{ PAGE COUNT: (INPUT) This parameter specifies the number of pages to assign. 
{ 
{ PRESET: (INPUT) This parameter is a boolean value specifying whether or 
{ not the pages should be preset. 
{ 
{ STATUS: (OUTPUT) This parameter specifies request status 
{ 
{ wee nen ennnnennwennn wenn nnn ease nn een ewn nee wonnm ewe eee nean eee n en eee nme een nen wenn eee 
PROCEDURE [XDCL] mmp$assign_page_to_monitor 
p: Acell; 
page count: integer; 
preset: boolean; 
VAR status: syt$monitor_status) ; 
VAR 
i: integer, 
aste_p: AmmtS$active_segment_tabie_entry, 
pstatus: mmt$page_pull_ status, 
sva: ost$system_virtual_address, 
cell_p: Acell, 
count: mmt$page_frame_index, 
pfti: mmt$page_frame_index; 
status.normal := TRUE; : 
sva.offset := (#OFFSET (p) DIV osv$page_size) * osv$page_size; 
cell_p := Amtv$monitor_segment_table,; 
#PURGE BUFFER [(osc$pva_purge segment_cache, cell_p); 
Sva.asid := mtv$monitor_segment_table.st [#SEGMENT (p)].ste.asid; 
mmp$aste_ pointer (sva.asid, aste_p); 
FOR i := 1 TO page _ count DO 
mmp$assign_page_frame (sva, aste_p, 1, 90, count, pfti, pstatus); 
IF pstatus = ps_done THEN 
IF preset THEN 
mmp$preset_real_memory (sva, pmeG$initialize to zero); 
IFEND; 
mmv$pt_pA [mmv$pft_pA [pfti].pti].v :2 TRUE; 
ELSE 


. 
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16E 13252 mmp$detete_ page _from_monitor (p, i - 1, status); 

18E 13253 IF (pstatus = ps_pt_full) THEN 

198 13254 mtp$set_status_ abnormal (’MM’, mme$page table full, status); 
1AA 13255 ELSEIF (pstatus = ps _nmo_memory) THEN 

1BO 13256 mtp$set_ status abnormal (’MM’, mme$no_free pages, status) ; 
12 13257 ELSE 7 

1C2 13258 mtp$error stop (‘MM - unexpected reject on assign page_to_monitor’); 
1E2 13258 IFEND; 

1E2 13260 RETURN; 

1E4 13261 IFEND; 

1E4 13262 sva.offset := sva.offset + osv$page_size; 

1E4 13263 FOREND; 


1FC 13264 
1FC 13265 PROCEND mmp$assign_page_to_monitor ; 
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© 13267 

© 13268 [{-- re tr ett rt tt te mm me mw ee 
oOo 13269 

© 13270 { 

© 13271 { This purpose of this procedure is to delete one or more pages from the address space of 
© 13272 { monitor. The deleted pages are returned to the free queue and are not updated on disk. 
© 13273 { 

© 13274 { MMPSDELETE_ PAGES FROM_MONITOR (P, PAGE COUNT, STATUS) 

© 13275 { 

© 13276 { P: (INPUT) This parameter specifies the address of the first page to delete. The page must be 
© 13277 { addressible in monitors address space. 

© 13278 { PAGE COUNT: (INPUT) This parameter specifies the number of pages to delete. 
© 13279 { STATUS: (OUTPUT) This parameter is the request status. 

o 13280 { 

oO 13281 

© 13282 [emt eee met em etm wet te eet ewe eR RB eS 
Oo 13283 

oO 13284 

© 13285 PROCEDURE [XDCL] mmp$delete_page_from_monitor 

oO 13286 { p: Acell; 

© 13287 page_count: integer; 

© 13288 VAR status: syt$monitor_ status); 

© 132898 

© 132390 VAR 

o 13291 pva: Acell, 

0 13282 rma: integer, 

o 13283 i: integer, 

o 13294 pfti: mmt$page_ frame_index; 

© 13295 

Oo 13296 status.normal := TRUE; 

4 13297 pyva := p; 

4 13298 

4 13299 FOR i := 1 TO page_count Do 

22 13300 -i#real_memory_address (pva, rma); 

3A 13301 IF rma < O THEN 

42 13302 mtp$error stop (‘MM - bad pva on delete _page_from_monitor’ ); 

62 13303 IFEND; 

62 13304 pfti := rma DIV osv$page_size; 

62 13305 mmp$delete pt_entry (pfti, TRUE); 

80 13306 mmp$relink page frame (pfti, mmc$pq_free); 

$4 13307 pva := #WADDRESS (1, #SEGMENT (p), #OFFSET (pva) + osv$page_size); 

94 13308 FOREND ; 

BC 13309 

BC 13310 #PURGE BUFFER (osc$pva_purge_all_page_seg map, pva); 

CoO 13311 


co 13312 PROCEND mmp$delete_page_from_monitor ; 
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MMPSXCHECK_ QUEUES 
© 13314 
0 13315 VAR 
© 13316 mmv$check queues: [XDCL, #GATE] integer := 0; 
Oo 13317 
Oo 13318 PROCEDURE [XDCL] mmp$xcheck_queues; 
© 13319 
oOo 13320 PROCEDURE check_queue 
Oo 13321 ( qcb: mmt$page queue _list_entry; 
Oo 13322 Gid: integer); 
© 13323 
© 13324 VAR 
© 13325 i: integer, 
© 13326 pfti, 
Oo 13327 prev _pfti: integer; 
© 13328 
© 13329 pfti :=5 gqcb.1ink. bkw; 
8 13330 prev _pfti := 0; 
8 13331 FOR i := 1 TO gqcb.count DO 
1E 13332 IF pfti = © THEN 
22 13333 mtp$error_stop (’MM - check queue, qcb count’); 
42 13334 IFEND; 
42 13335 IF mmv$pft_ pr [pfti]).link.fwd <> prev_pfti THEN 
62 13336 mtp$error_stop (’MM - check queue, bad fwd’); 
82 13337 IFEND; 
82 13338 IF mmv$pft_pA [pfti].queue_id <> qid THEN 
A2 13339 mtpSerror_stop (‘MM - check queue, bad qid’); 
C2 13340 IFEND; 
C2 13341 prev _pfti := pfti; 
C2 13342 pfti := mmv$pft_pA [pfti].1link.bkw; 
C2 13343 FOREND; 
E6 13344 IF pfti <> © THEN 
EA 13345 mtp$error_ stop (’MM - check queue, bad count2’); 
104 13346 IFEND; 
104 13347 PROCEND check queue; 
Oo 13348 
13349 VAR 
Oo 13350 ecst_p: Aost$cpu_state table, 
© 13351 pit: integer, 
Oo 13352 last_check_time: [STATIC] integer :=: 0, 
© 13353 i: integer; 
Oo 13354 
© 13355 IF (mmv$check_queues > 0) AND mmv$tables_initialized THEN 
18 13356 pit :2 #READ_REGISTER (osc$pr_process_ interval_timer) ; 
1E 13357 IF (mmv$check_ queues > 1) OR (last_check_ time - #FREE RUNNING CLOCK 
3E 13358 FOR i: 0 TO 1 OO 
48 13359 check_queue (mmv$gpqi [i].pqie, i): 
60 13360 FOREND; 
6A 13361 IFEND ; 
6A 13362 mtp$cst_p (cst_p); 
7A 13363 IF cst_p%.xcb_p <> NIL THEN 
94 13364 FOR i := mmc$pq_job_fixed TO mmc$pq_job_working set DO 
A&B 13365 check queue (cst_prA.ijle_p%. job _page_queue_list [i], i); 
DO 13366 FOREND; 
O06 13367 IFEND; 
D6 13368 #WRITE REGISTER (osc$pr_process_interval_timer, pit); 
Dc 13369 last_check_time := #FREE_ RUNNING CLOCK (0); 
SOURCE LIST OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89162 


MMP$SXCHECK QUEUES 
EA 13370 IFEND; 
EA 13371 PROCEND mmp$xcheck_queues; 


0 13372 


(0) 


> 


1989-08-21 


1000000) THEN 


1989-08-21 


13:33:34 


13:33:34 


PAGE 6590 


PAGE 691 


SOURCE LIST OF mmm$page_fault_ processor 


MMPSPROCESS VOLUME_UNAVAILABLE 


Ppepodgoocd0 0000000 


SOURCE LIST OF mmm$page_fault_processor 


13374 
13375 
13376 
13377 
13378 
13379 
13380 
13381 
13382 
13383 
13384 
13385 
13386 
13387 
13388 
13389 
13390 
13391 
13392 
13393 
13394 
13395 
13396 
13387 
13398 
13399 
13400 
13401 
13402 
13403 
13404 
13405 
13406 
13407 
13408 
13409 
13410 


PROCEDURE [XDCL] mmp$process volume_unavailabie 
( xcb_p: Aost$execution_control block; 
reset _p_register: boolean); 


VAR 
stxe_p: Ammt$segment_descriptor extended, 
segnum: ost$segment, 
mmv$volume_unavail_ queued: [XDCL] integer 
status: syt$monitor_status; 


segnum 
stxe_p 


NOS/VE CYBIL/II 1.0 89102 


1989-08-21 


Oo, 


#SEGMENT (xcb_pA.page wait_info.pva) ; 
mmp$get_sdtx_entry_ p [(xeb_p, segnum) ; 


IF (xcb_pA.xp.trap_enable <> osc$traps_enabled) OR 


Could have used p_register.ring <= 3, but that has problems too 


{(segnum < mmc$first_loader_predefined_seg) OR 


(mmc$sa_stack IN stxe_ pA.software_attribute_ set) THEN 


IF tmv$pti_p4 [xcb_p4.global_task_id.index].status < tmc$ts_first_ external queue THEN 
tmp$queue task (xcb_p4.global_task_id, tmc$ts_volume_unavailable, mmv$volume_wait queue) ; 
mmv$volume_unavail queued := mmv$volume_unavail_queued + 1; 


IF (xcb_pA.system_table_lock_ count > 255) 


OR (xcb_pA.critical_task) OR 


(tmv$pti_pA [xcb_p’%.global_task_id.index].ijl_ordinal = jmv$system_ijl_ordinal) THEN 
mtp$step_unstep_system (syc$ic_disk_error, 
*“ERR=VEOS9301- A critical system task has encountered an unavailable volume’); 


iep$enable_all_disk_units (status) ; 
IFEND; 
IFEND ; 
ELSE 


tmp$set_monitor_fiag (xcb_p4.global_task_id, 


IFEND ; 

IF reset _p_ register THEN 
tmp$reissue monitor _request ; 

IFEND; 


PROCEND mmp$process_ volume_unavai labile; 


MMPSPROCESS VOLUME AVAILABLE 


13412 
13413 
13414 
13415 
13416 
13417 
13418 
13419 
13420 
13421 
13422 
13423 
13424 
13425 


PROCEDURE [XDCL] mmp$volume_availabie; 
VAR 
mmv$votume_unavail _dequeued: [XDCL] integer 
taskid: ost$global_task_id; 


WHILE (mmv$volume_wait_queue.head <> 0) ODO 


NOS/VE CYBIL/II 1.0 88102 


mmc$mf_volume_unavailable, status) ; 


1989-08-21 


tmp$dequeue_ task (mmv$volume_wait_queue, taskid) ; 
mmv$volume_unavail_dequeued := mmv$volume_unavail_dequeued + 1; 


WHILEND ; 


PROCEND mmp$voiume_availabtie; 


13:33:34 


13:33:34 
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SOURCE LIST OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 694 


MMP$INCLUDE_P_REG_IN_DUMP 


© 13427 

oOo 13428 PROCEDURE [XDCL]) mmp$include_p_reg_in_dump; 

© 13429 

© 13430 PROCEDURE set_page 

8 13431 ( ste_p: Ammt$segment_descriptor ; 

8 13432 offset: integer); 

8 13433 

8 13434 IF (ste_pA.ste.asid <> 0) and (offset >= ©) AND (offset <= 7FFFFFFF(16)) THEN 
1€ 13435 Sva.asid := ste pA.ste.asid; 

1C 13436 sva.offset :: offset; 

1C 13437 #HASH SVA (Sva, pti, count, found); 

24 13438 IF found THEN 

4A 13439 pfti := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size; 
4A 13440 mmv$pages_to_dump_pA [pfti] := TRUE; 
TA 13441 IFEND; 

7h 13442 IFEND; 

TA 13443 

70 13444 PROCEND set_page; 

© 13445 

O 13446 VAR 

© 13447 found: boolean, 

© 13448 sva: ost$system_virtual_address, 

© 13449 pti: integer, 

© 13450 count: integer, 

oO 13451 cst_index: integer, 

oO 13452 rma: integer, 

© 13453 Sste_p: Ammt$segment_descriptor, 

© 13454 pfti: mmt$page_frame_index, 

© 13455 xcb_p: Aost$execution_control_ block; 

Oo 13456 

© 13457 

Oo 13458 IF mmv$pages_to_dump_p <> NIL THEN 

16 13459 FOR cst_index : = LOWERBOUND (mtv$cstoO) TO UPPERBOUND (mtv$cstoO) DO 
20 13460 IF mtv$cstoO [cst_index].xcb_p <> NIL THEN 

38 13461 xcb_ p := mtv$cstoO [cst_index].xcb_p; 

38 13462 i#real_memory address (xcb_p, rma); 

52 13463 IF rma >= O THEN 

5A 13464 ste_p := mmp$get_sdt_entry_ p (xcb_p, xcb_pA.xp.p_register.pva.seg) ; 
SA 13465 set_page (ste_p, xcb_p4.xp.p_register .pva.offset); 

*WARN* 13466 set_page (ste_p, xcb_p4.xp.p_register.pva.offset + osv$page_ size); 
C8 13467 set_page (ste_p, xcb_p4.xp.p_register .pva.offset ~- osv$page_size) ; 
E&8 13468 IFEND; 

E& 13469 IFEND; 

E& 13470 FORENC; 

EC 13471 

EC 13472 IFEND; 

EC 13473 

EC 13474 PROCEND mmp$incilude_p_reg_in_dump; 
© 13475 


© 13477 MODEND mmm$page_fault processor ; 


x*** 129$05578173AS01020D19890821T183254 L=Z2Z2XXLIST B=LGO DA=NONE LOE=R RC=NONE OPT=SCHED EL=F LF=CS612 PAD=0 


ERROR LIST OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 695 
ERROR LINE TEXT 
WARNING CY 821 9422 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10850 Code scheduling abandoned for this biock due to register jamming. 
WARNING CY 821 11583 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 11681 Code scheduling abandoned for this block due to register jamming. 
- WARNING CY 821 13466 Code scheduling abandoned for this bieck due to register jamming. 


LEVEL SUMMARY 
KEKE 5 warning diagnostics 


REFERENCES OF mmmS$page_fault_processor NOS/VE CYBIL/II 1.0 89102 Z 1989-08-21 13:33:34 PAGE 696 
LDENTIF ITER «<<< © 22 se Sos ein 2 mi DEFINED----+-+-----+---- REFERENCES 
ON LINE 

access _ rights 5536 10835 10836 

access state 5531 11375 11376 11379 12076 12077 12080 13041 13068 

active 8275 10849 12911 

active _au_offset 10791 11050/M 11051 11054 11056 

active io count 4171 9163 $183 9218 9420 $812 $854 $873 10006 
10044 190130 10162 10217 11801 11813 11840 11870 
12551 12635 12636 12638 12644 12645 12647 12758 
12767 12935 12944 

active_io page count 4542 12636/M 12636 12637/M 12637 12645/M 12645 12646/M 12646 

active_io_requests 4543 11961 11971 13133 13161 13168 

adv_request 13032 13032 13038 13042 13047 13052 13065 13069 13190 

advise in 13074 13074 13085 13088 132092 13095 13098 13101 131063 
13111 13134 13139 13142 

age 4175 $893/M 10138/M 10209/M 10346/M 10357 10360 10366/M 10366 
10471/M 10735/M 11209/M 

age_exceeds_ aic 2054 103833/M 10393 

age_exceeds_ aif 2053 10363/M 10363 

aging keypoints 6872 10322 10397 

aging stack_trace 6874 1O336 

ai pages 4269 13109/M 13109 13118/M 13118 13125/M 13125 13132/M 13132 

aic 10290 10311/M 10357 

aif 10291 10312/M 10360 10364/M 

aii 10289 10299/M 190302 10303/M 10357 10360 10366 

ajl_ordinal 4536 7344 7385 7587 7728 7749 8322 3706 9719 
10005 10128 10327 11053 12770 12774 12882 12884 
12886 12946 

ajl_ordinal 7714 7728/M 7728 7728/5 7728/8 7728 

ajl_ordinal 7746 7749/M 7750 7754/8 7754/Ss 7755 

ajl_ordinal 12676 12770/M 12770 12770/8 12770/S8 12770 12882/M 12882 12882/S 
12882/S 12882 

ajl_ordinal 128939 12946/M 12946 12946/S 12946/S 12946 

ajlo 7554 7557/M 7558/S 7561/S 7561/S 

ajlo 7714 7728/P 7728/M 

ajlo 7721 7728/P 

ajilo 7743 7752/P 7755/M 

ajilo 9665 9706/M 9706/S 9706/S 9706/S 97193/M 8719/58 $713/S 9719/S 

ajlo 12676 12770/P 12882/P 

ajlo 12676 12770/P 12770/M 12882/P 12882/M 

ajlo 12676 12774/M 12774/S 12774/S 12774/S 12886/M 12886/S 12886/S 12886/S 

ajlo 12899 12946/P 

ajlo 128993 12946/P 12946/M 

a1il_requested_ needed 11135 11150 

allocate _if_ new 10785 10835 10886/P 

allocation _unit_size 7047 3808 10918 10918 11012 11012 11050 11050 11057 
11058 11752 11753 11863 11864 

am_pages_in_memory 12061 12160/M . 12175/M 12175 12194 

amc$file byte _ limit 3055 3058 7073 

amc$max_file_id_ordinal 6514 6521 

amt$file_ byte address 3058 3942 7045 

amt$file_id_ordinal 6521 6518 

amt$file_id sequence 6522 6519 

amt$file identifier 6517 6481 

amt$fite_ vimit 7079 7049 

*** REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, =1/O0 ref, Rtread, Wewrite, Ptparameter 
REFERENCES OF mmm$page_fault_ processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 697 
IDENTIELER Ss oe Skee sree eS aS DEFINED +425 <-22 so 955 < REFERENCES 
ON LINE 

asid 1338 9632 $632 9648/M 

asid 2089 8598/P 8919/M 83924 8966/M $205/M $412 9422/P §9554/M 
96468 12716/M 12716 13241/M 13243/P 13435/M 

asid 5497 &88&36/M 8919 8936/M 8939/M 9554 13241 13434 13435 

asid 8594 8598/M 8598/M 8538 8538 8598/S 8598/S 8598/S 8598/S 

asid 8713 8717/M 8719/M 8718 87193 8720 

asid 8731 8735/M 8736/M 8736 8736 8737/S 8737/8 8738/S 8738/S 

asid 8752 8754/M 8755/M 8755 8755 8756/S 8756/S 8757/8 8757/S 

asid 8802 &8809/P 8836 

asid 8872 8936/P 8936 

asid 8872 8938/M 8938/M 8938 89338 8938 

asid 8883 &8936/P 8338/P 8939 8366 

asid $357 9422/M 9422/M 9422 9422 $422/S 9422/S 9422/8 9422/8 

asid 9364 9412/M 9419 9425/P 

asid 13222 13243/M 13243/M 13243 13243 13243/S 13243/8S 13243/S8 13243/S 

assign_active $541 8854 8855/M 8857/M 9697 $698 3698/M $698/M 10877 
10877/M 10877/M 10899 108839/M 10899/M 12146 12146/M 12146/M 
12528 12528/M 12528/M 

assign_active_sfid 5354 $702 $703/M 9714 $715/M 

assign_cont iguous 12681 12753/M 12781/M 12785 

assign_page, loop count 10669 10689/M 10691 10691 10753/M 10753 10754 

assigned_page_count 10664 10677/M 10752/M 10752 

assigned _page_count 10792 11069/P 11071 

assigned page_count 11141 11148/P 11150 11150 11153 11155/P 11160/P 

assigned_pages 12682 12808/P 12814 12816 

assigned_pages_ count | 12034 12265/P 12268 12292 12302 

aste p 4176 8539 $317/M $422 9435 $449 $794 9832 10114 
10327/P 10739/M 11212/M 125890/M 12609/M 12884/P 

aste_p 7859 7897 7898/P 

aste_p 8594 &8598/M 8598 8598/M 

aste_ p 8595 8598/P 8599 

aste_p 8727 8739/M 8740 8741/M 

aste_ op 8803 8809/P 8818/M 8825/M 8831/M 8832/M 8834/P 

aste_p 8872 8936/P 83936/M &8336/M 8936/M 8936/M 8936/P 

aste_p 8877 8915/M 8925/M 8926 8936/P 8951/M 8953 8353 8954/M 
89355/M 8957 8961/M 8962/M 8969 83970 

aste_p 9064 s069/P 

aste_p $253 9317 

aste op $357 $422/P 9422 

aste_p $357 9422/M $422 9422/M 

aste_p $365 9422/P 9423 9424 9425/P 

aste_p $752 $784/M $795 9837/P 

aste_p $953 $9982/M 10005/P 

aste_p 100398 10114/M 10128/P 

aste_p 10661 10713/P 10717 107398 10741 10746/P 

aste_p 10780 10849 108SO0/P 10875 10876 10876 10830/P 10939/P 10952/P 
10864/P 11017/P 11069/P 11105/P 

aste_p 11132 11148/P 

aste_p 11182 11212 11216/P 11223 

aste_p 11252 11398 11399/P 11681 11681/P 

aste_p 11268 11368/P 11371 11389/P 11515/P 11595/P 11681/P 11683/P 11708 
11709 

aste _p 12035 12075/P 12086 120989 12099 12111 121906 12224 12223/P 

** REFERENCE ABBREVIATIONS Memodify, Asattribute, Stsubscript, 121/0 ref, Reread, Wswrite, Psparameter 


REFERENCES OF mmm$page_fauilt_processor 


NOS/VE CYBIL/II 


1.0 88102 


IDENTIFIER--<+-+---+*-- Se See) Sie DEFINED-°----+-+2+-+e+-e¢e¢2- REFERENCES 
. ON LINE 
12265/P 12311/P 
aste_p 12683 12713/P 12808/P 
aste_p 13001 ? 13076 13076/P 
aste_p 13016 13040/P 13044 
aste op 13222 13243/M 13243 
aste_p 13230 13243/P 13245/P 
asti 5466 8837/M 8926 
asti 7044 7838 7842/M 
asti 7835 7838/M 7839/58 
asti 8594 8598/M 8598/S 
asti 8712 8716/M 8717/58 
asti 8732 8737/M 8733/58 
asti 8749 8756/M 
asti 8806 8809/P 8811 
ast i 8872 8933/M 8933/S 
asti 8872 83936/P 8336 
asti 8872 8338/M 8938/S 
asti 8884 8933/P 8935 
asti $357 9422/M $422/S 
asti 13222 13243/M 13243/S 
“asynchronous interrupts pending 6387 10253/M 11823/M 
attach_count 7039 8331 
avail_pages_in_memory 12062 12161/M 12173/M 
b 7378 7387 7387 
b 7422 7432 7433 
b 7550 7556 7556 
“‘b 7620 7627 7628 
b 71714 7727 7727 
b 8872 8322 8922 
b 9665 $706 9706 
b 9942 10005 10005 
b 10088 10128 10128 
re) 10776 11053 11053 
“pb 12676 12770 12770 
b 12676 12884 12884 
b 12899 12946 12946 
pc 7550 7556/M 7556 
oc 71621 7624/™M 7625 
be 7714 7727/M 7727 
pe 9665 $706/M 9706 
“pe 12676 12770/M 12770 
12882 12886/M 
be 128938 12946/M 12946 
bits 8704 8598 8598 
8737 8737 
8938 89338 
13243 13243 
” pkw 1922 9095 9101 
9158/S 9162/M 
9320 9324 
9385 9405 
$473/M 9474 
*** REFERENCE ABBREVIATIONS M=modify, 


*} 


REFERENCES OF mmm$page_fault_preocessor 


*** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


IDENTIFIER ---c cree eer eee eee -~--DEFINED----- Se Sse -~°-- "REFERENCES 
ON LINE 
10324 
10351/M 
10461 
10696 
12837 
block_index 1907 7536/S 
$837/S 
12946/S 
biock_ number 1906 7536/S 
$837/S 
12946/S 
block_p 8194 7536 
12469 
boffset $753 9841/M 
buffer descriptor $754 $884/M 
buffer descriptor 10794 108361/M 
buffer descriptor 11140 11151/M 
buffer descriptor_type 2194 9884/M 
byte 7183 7449/M 
bytes to_read 10733 10918/M 
11081/P 
c 1944 $64S5/M 
call_dispatcher 6383 12327/M 
calls _to_age_jws 2052 10301/M 
cell_up 13233 13239/M 
check_aio_slowdown 11268 11953/M 
check_aio_ slowdown 13011 13156/M 
check_free_queues 10241 10260 
check_queue 13320 13347 
claim pages 9285 $285 
~¢ lear 7612 7563/M 
12886/M 
cmc$centrail_memory_element 3936 3812 
eme$central_processor_element 3937 3801 
-eme$channel_adapter_element 3938 3805 
cmc$choose_any_pp 3973 3950 
cmc$choose_pp_by barrel 3980 3952 
~eme$choose_ pp_by_channel 3979 3954 
cmce$choose_ specific_pp 3980 3957 
cmc$communicat ions_element 3941 3805 
cmc$controller_element 3937 3806 
“emc$data_channel_element 3338 3803 
cmc$external_ processor _ element 3941 3806 
cmc$iou_element 3939 3812 
semce$mainframe_element 39339 3812 
cmc$max_equipment_per_ channel 2411 2414 
cmc$max_esm_size 2588 3998 
cmc$max_ low _speed_port_ number 4006 39390 
“emc$max_side_door_port_number 4007 3762 
cmc$max_units per controller 3928 3931 
cmc$pem_element 3939 3813 
¢me$pp_element 3940 38093 


Memodify, Azattribute, Sssubscript, It1I/0 ref, Rtread, Wewrite, P=parameter 


1.0 89102 


10324 
10367 
10467 
11026 
12850/Ss 
7723/58 
10334 
12959/S 
7723/5 
10333 
12959/S 
7723 
12470 
9844 
9885/M 
10962/M 
11152/M 
10961/M 
7471/M 
10819 
11114/P 


10301 
13240 
11955 
13158 
11994 
133593 
$2898 
7590/M 
12946/M 
4042 


4047 


4047 
4048 
4044 


4003 


3783 


13044 
13243/M 


8S36/M 
8811/M 
7839/58 


&8717/S 


8837 
8933/S 
8936 
8938/S 
8938/P 


11994/M 


12173 


$719 


12774 


7556 
76293 
71727 
9706 
12770 
12886 
12946 
88598 
8738 
8338 
13243 
$103 
9194/M 
§$325/M 
9413 
9475/S 


Azattribute, 


10325/S 
10368 
10547 
11078 
12854/M 
$136 
11709 


9135 
11708 


9147 
12770 

9844 

8886/M 
10963/M 
11183/M 
11151/M 


10920/M 


11958 
13161 
13186 
13365 
9341 
7729/M 


3784 


13045 


8940/M 
8925/S 
7840/8 


8718/5 


8933/S 
8938/S 
8940 


12824/M 


12194 


$719 


12774 


$9713 /M 
12774/M 
12886 


9482/M 


S:subscript, 


10340 
10371/S 
105583 
11094 
12855/M 
$147/S 
12469/S 


9147/S 
12469/5S 


9190 
12848 

§845/M 

9893/P 
10965/P 
11155/P 


10922 


S7O06/M 


39891. 


13054/P 


83926 
7841/M 


8718/S 


8933/M 


8938/S 
89851/s 


13090/M 


12209 


12882 


9719 
12774 


8717 
8756 
$422 


9151 
8233/M 
$332/™M 
$465 
S9486/M 


10340 
10373/M 
10590 
11112 
12855 
9190/5 
12470/S 


9190/S 
12470/S 


3268 
12882 

3845 

9895/P 


11161/P 


11056/M 


9719/M 


I:1/0 


1989-08-21 13:33:34 
13067/P 13076/P 13078/P 
8333 8933/M 8936/M 
13186/M 
12882 12886 12886 
$719 
12774 12882/M 12882 
8717 8718 8718 
8756 8757 8757 
9422 9422 9422 
8$153/M $153 9155 
8235/M 9298 9304 
S$336/M $337/M 8384 
9470 9471/M 9471 
10318/M 10319/M 10319 
ref, R-=read, W:-write, 
1989-08-21 13:33:34 
10341/S 10342 10348 
10373 1O376/M 10378/M 
10602 10696 10696 
11181 12290 12819 
128S56/M 13329 13342 
8$268/S 9396/5 9685/S 
12770/S 12848/S 12882/S 
9268/5 93S96/S 9685/S 
12770/S 12848/S 12882/S 
$396 9685 $837 
12946 12359 
9846 9857 
11057 11058/M 11061 
12770/M 12774/M 12882/M 


PAGE 698 


Pzparameter 


PAGE 699 - 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 700 
IDENTIFIER: -°- ce rere ree ree eee DEFINED~---c+-+c e-em renee *REFERENCES 
ON LINE 

cme$storage device element 3940 3807 

cmt$central_ memory port number 4058 4043 

ecmt$channel_ descriptor 3819 3804 

cmt$channel_identification 3393093 3302 3856 

cmt$channel_ ordinal 3833 3825 3310 

cmt$element_name 2398 2375 3748 3743 3759 3773 3788 3790 3802 
3820 3823 3892 3901 3911 39365 3886 4039 
4045 4046 

cmt$element_ reservation 3799 3767 4072 

cmt$element_state 4518 4478 4479 4509 

cmt$element_type 3936 3800 4041 

cmt$S$esm_maintenance_buffer_loc 3997 3765 3778 3933 

cmt$esm_memory_ size 4003 3992 

cmt$hardware_ address 38399 3894 

cmt $model_ number 4019 4014 

cmt$peripheral_ descriptor 38893 3808 

cmt$physical_address_ parts 3923 3920 

cmt$physical_address specifier 3920 3900 

cmt$physical_equipment_number 2414 2385 3903 

cmt$physical_unit number 3931 3804 

cmt$pp_identification 3963 39348 3958 

cmt$pp_ordinal 3969 3964 

cmt$pp_reservation 3944 3810 

cmt$pp_reservation_ choices 3979 3949 

cmt$product_ identification 4011 3987 

cmt$product number 4017 4012 

cmt$serial_number 4022 3988 

cmt$upline_connection 4025 393390 3991 

condition 3333 8070/M g005/M $o13/M 9023/M 9026/M 9028/M $031/M 990601 
9903 g9s05 $305 $307 $909 10969 10969 10971 
10973 11166 11166 11168 11170 12078/M 12081/M 12087/M 
1209S5/M 12100/M 12133/M 12138/M 12142/M 12148/M 12188/M 12298/M 
12321/M 123293/M 12338/M 12432/M 12444/M 124493/M 12454/M 12459/M 
12465/M 12480/M 12485/M 12515/M 12520/M 12524/M 12530/M 12543/M 
12552/M 12557/M 12616/M 12724/M 12742/M 12795/M 12893/M 13046/M 
13051/M 13094/M 130937/M 13100/M 13254/M 13256/M 

condition 8065 8070 

condition 8985 $9005 $018 $023 $026 9028 9031 

condition 12026 12078 12081 12087 12095 12100 12133 12138 12142 
12148 12198 12298 12321 12329 12338 

condition 12387 12432 12444 12449 12454 12458 12465 12480 12485 
12515 12520 12524 12530 12543 12552 12557 12616 

condition 12676 12724 12742 12735 12833 

condition 13001 13046 13051 13094 13097 13100 

condition 13222 13254 13256 

contents 6151 11760 11771 11785 

conv 6995 7003/M 7004 

convert 6985 6995 

count 4223 9037 90398 9098 9160/M 81606 9200/M $200 $238/M 
$238 9276 $276 $276 9276 $276 93276 9277 
9277 $278 $278 9251/M §$323/M $323 9464 9467 
$483/M 9487/M 9489/M 948983 10320 10331 10463 10548 
10548 10592 10594 10696 106396 10696 11953 11955 


*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S:subscript, I:I1/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 701 
IDENTIFIER----- e222 eee ee were -DEFINED-~--- eee eee te ee eee REFERENCES 
ON LINE 

11981 119883 11985 11987 12195 1213837 12207 12207 
13156 13158 13174 13176 13178 13180 13331 

count 7609 7556/M 7556 7563 7563/M 7563 7587 7588/M 7588 
7631/M 7631 7727/M 7727 7729 77293/M 7729 $706/M 
3706 9706 S7O06/M 9706 $9713/M 9719 $719 9719/M 
9713 12770/M 12770 12770 12770/M 12770 12774/M 12774 
12774 12774/M 12774 12882/M 12882 12882 12882/M 12882 
12886/M 12886 12886 12886/M 12886 12946/M 12946 12946 
12946/M 12946 

count 7866 7873 

count 9263 $267/M 38270/M $270 9272/M 9272 9276 9276 9276 
9277 8$287/M 9288 9291 9293/M $293 g2395 9297 
9307 9307 9313/M §$313 $323 9340 

count 9366 9464/M 9467/M 8469 9489 9491 9494 9496 

count 9543 $623 $627 9631/M 9632 $632 $633/M 9633 9640 

count $755 9847 S866 

count 10245 10247/M 10248 10251 10252 

count 11252 11398 11681 

count 11252 11994/M 11994 11894 11994 

count 11270 11907 

count 12036 12164 12218 

count 12392 12541 12581 

count 12684 12722 

count 13001 13076 

count 13001 13186/M 13186 13186 13186 

count 13234 13245/P 

count 13450 13437 

cp_time 4836 10294 10296 10237 10452 10454 10455 11945 11947 
11848 13148 13150 13151 

cpt ime 10280 10294/M 102S6/M 190299 10305 

cptime 10439 10452/M 10454/M 10457 

cptime 11271 11945/M 11947/™M 11950 

cpt ime 13012 13148/M 13150/M 13153 

cptime_next age working set 5138 10299 10305/M 104857/M 11950 13153 

critical task 5312 10826 13395 

cst_index 13451 13459 13460/S 13461/S 

cst_p 8052 8054/M 

cst_p 8800 8815 8818 

cst _p 8872 8936 8336 

ecst_p 8874 8&892/P 8833/P 8895 8922/P 8933/P 8336/P 8955 &8S6s 

cst_p 8385 8s99/M 

cst _p 8991 8399/P 300s $010 9014/P 9015/P $018 

cst_p 9054 9068/M 

cst _p S060 $so68s/P so6s/P 

cst_p 10242 10253/M 

cst_p 10779 10825 10825 198256 10834 10862 10866 10878/P 10882 
10883 10898 10900 1038300 10901/M 10803/P 10905 10805 
10906 10807 11053/P 11066 11067 11082/M 11084/M 11086/M 
11087/P 

cst_p 11252 11984/M 

cst_p 11254 11321/P 11327 11328/P 11336/M 11336 11350 11354 11356 
11358 113606 11368/P 11370 11515/P 11583 115384 11585 
11586 115985/P 11627/M 11628 11633/M 11634 11650/M 11651 


= *x* 


REFERENCE ABBREVIATIONS 


Mzmodify, 


Azattribute, 


S=subscript, 


I=1/0 


ref, Reread, Wewrite, 


P=parameter 


apa stuee ss SS 5 


wa 


REFERENCES OF 


IDENTIFIER---- eee eee ene et eee eee 


cst_p 
‘cst_p 
cst_p 
cst_p 
cst _p 
cst_p 
cst_p 


cst_p 
cst_p 
‘Cyclic_age 


cyclic_aging_ interval 


data 

data_index 
deadstart_ upper 
decrement_soon 
delayed_swapin_work 
desc 
destination_aste_p 


destination_fde_p 
destination_pft i 
destination_pti 
destination_pva 
destination _ste_p 
destination_stxe_p 
destination_sva 


dfc$active 

dfc$awaiting recovery 
dfc$command_record bytes 
dfc$deactivated 
dfc$division_overwrite_ words 
dfc$esm_command_record_size 
dfc$esm_connection 
dfc$esm_header_record size 
dfc$esm_maintenance_buf_size 
dfcS$esm_memory_base_shift 
dfc$header_record bytes 
dfc$inactive 
‘dfc$max_data_record bytes 
dfc$max_esm_divisions 
dfc$max_esm_memory_size 
dfc$max_number_of_mainframes 
dfc$max_number_of_queues 


** > 


REFERENCES OF 


IDENTIFIER----------- wee eeeeee 


dfc$max_queue_entries 


dfc$max_req_ timeout count _value 
dfc$max_request buffer_entries 
dfc$max_ retransmit _count_value 


dfc$maximum_ lifetime 
dfc$maximum_queue_interfaces 
dfc$maximum_user_buffer_ area 
dfc$maximum_user_ data_area 
dfc$min_cdcnet_errors 


dfc$min_data_record bytes 
dfcS$min_driver_test_errors 
dfc$min_ecc 


dfc$min_esm_division_size 
dfc$min_esm_memory_ size 
dfc$S$min_mm_recovery_ errors 
dfc$mock_connect ion 

“ dfc$monitor 

dfc$monitor_ allocate 
dfc$monitor io 


‘dfc$queue_assignment_strng_ size 


dfc$recovering 
dfc$task_services 
dfc$terminated 
dfcS$unrecovered disk_error 
dfeS$server_has_terminated 
dfp$fetch multi_page_status 
.dfp$fetch page status 
dfp$file server allocation 
dfp$server_io 
dft$allocated_command_buf fer 
‘dftS$allocated data_rma_list 
dft$S$allocated _monitor_buffer 
dft$channel_definition 
dft$channel_specification 
dftS$connect ion_address 
dft$connect ion_descriptor 
dft$connection_flags 
dft$connect ion_type 
dft$cpu_queue 
dftScpu_queue_entries 
‘dft$cpu_queue_ entry 


eee 


mmm$page_fault_processor 


DEFINED--- 


ON LINE 


12009 
12028 
12355 
12389 
12678 
13001 
13003 


13318 
13350 
4168 


5144 


6996 
6997 
&350 
9360 
4S66 
6977 
12393 


12394 
12395 
12396 

5776 
12397 
12398 
123939 


2843 
2844 
1132 
2843 
11193 
1140 
2787 
1141 
1120 
1126 
1131 
2843 
1135 
1129 
1121 
1128 
2853 


REFERENCE ABBREVIATIONS 


mmm$page_fault processor 


DEFINED 
ON LINE 
2854 
2738 
2418 
2742 
2918 
4076 
2865 
2869 
3093 


1136 
304 
14 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


“REFERENCES 


2601 
2616 
3705 
2617 
2915 
40793 
2875 
2878 


Memodify, 


1.0 88102 


10373 
12503 


11160 


3784 
2377 
2514 


2605 


1.0 89102 
---REFERENCES 

11660/M 11661 11683/P 
11743 11767/P 11781/P 
11816/P 11817/M 11823/M 
11853/M 11854 11876/P 
11954 119S7/P 11963/M 
12013/P 12016/P 
120785/P 12147/P 12184 
12361 
12429/P 12441/P 12469/P 
12713/P 12824/M 
13186/M 
13040/P 13061 13067/P 
13117 13123/M 13124 
13160/P 13163/M 13163 
13362/M 
13362/P 13363 13365/P 
9994/M 10139/M 10210/M 
10736/M 11210/M 

10450 

TOO4/M TOO6/S 7007/S 
7005 70068/S 7O07/S 
9576 9590 9608 
9441 9433 

9271 $292 9398 
7001 7002 

12441/P 12443 12484 
12627 12628 12634/P 
12441/P 12479 124893 
12583/M 12S84/P 12585/P 
12581 12583/S 

11084/M 

12482/P 

12442/P 12500/P 12528/P 
12441/P 12458 12464 
12505 12581 12591 
2812 

2819 

1140 2757 

2828 

1147 

1148 

2373 2784 

1148 

1151 

1148 1149 41149 
1141 

2819 

3795 

2422 

1150 3760 3774 
1113 2421 

24693 2471 2473 

M=modify, Azattribute, 


2643 


374 


11170 


Azattribute, 


11725/M 
11788/P 
11827/P 
11877/M 
11863 

12196 

12529/P 
13078/P 


13130/M 
13173 


10347/M 


12912 
9463 
12484 


12642/P 
12499/P 


12477 
12602/P 


2858 


S=subscript, 


2644 


12081/P 


S:subscript, 


1989-08-21 13:33:34 

11725 11735/M 11736 11742/M 
11793/M 11783 11804/P 11805/M 
11834/M 11835 11846/P 11847/M 
11880/M 11881/P 11950 11951/P 
11980 11982/M 11994/P 11993/M 
12225 12327/M 
12633 
13090/M 13107/M 13108 13116/M 
13130 13153 13154/P 13157 
13175/M 13186/P 
10470/M 10472 10473/M 10473 
9480 
12491 12590 12602/P 12604 
12503/P 
12479 12493 12499/P 12503/P 
12605 12658/M 12658 12666/P 

I=I1/O ref, Reread, Wewrite, 


1989-08-21 


2859 
326 329 
32 36 
58 61 
83 87 
108 111 
134 137 
159 162 
185 188 
212 215 
238 241 
264 267 
2933 287 
12142/P 12524/P 
IsI/O ref, 


13:33:34 
332 335 
40 43 
64 67 
90 93 
114 117 
140 144 
165 168 
191 194 
218 222 
245 248 
271 274 
304 306 


Reread, Wewrite, 


PAGE 702 


Ptparameter 


PAGE 703 


P=parameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 704 


IDENTIFIER--------- weer et en ee “DEFINED----e¢"---- ---*-REFERENCES 

GN LINE 
dft$cpu_queue_header 2600 2593 
dft$cpu_queue_pva_entries 2473 2459 
dft$cpu_queue_pva_entry 2485 2474 
dft$data_descriptor 2573 2540 2541 2542 
dft$dma_adapter 2462 2449 
dftS$driver queue 2490 2482 
dft$driver queue entries 2531 2492 
dft$driver queue _ entry 2533 2531 
dft$driver_queue_ header 2495 2491 
dft$driver_queue_header_flags 2502 2496 
dftS$driver queue pva_entries 2471 2458 
dft$driver_ queue _pva_entry 2481 2472 
dft$driver queue rma_entries 2469 2457 
dft$driver queue rma_entry 2476 2470 
dftS$esm_base_addresses 2438 2431 3763 3777 
dftS$esm_definition_table_ entry 3758 3755 3768 
dftS$esm_pp_information 2383 2378 2379 
dftSinguiry_message 3651 3642 3713 
dftSinquiry tracer 3656 3652 
dft$interrupt 2507 2497 
dftSiifetime 2915 2911 
dftS$mainframe_set 1113 1106 1107 4567 4568 
dft$maximum_data_bytes 3795 3764 3778 
dft$monitor_io_types 2628 2672 
dftS$p_allocated_data_rma_list 2712 2624 
dftS$p command buffer 2750 . 2661 2662 
dft$p_data_rma_list 2699 2664 
dft$p_queue interface _tabie 2426 2369 
dft$p_send_data 2879 2679 2680 
dft$partner_status 2802 2609 
dft$pp_element_ reservations 4072 2387 
aft$pp_status 23390 2384 
adft$q_interface directory _ entry 2367 2365 
dft$queue_ directory 2448 2433 
dftS$queue directory index 4079 2353 
dft$queue_entry flags 2545 2534 2656 
dft$queue_ entry index 2859 2355 
dftS$queve_entry_ location 2352 2342 
dft$queue_entry_type 2848 2665 
dftS$queue_ index 2858 2354 
dftS$queue_interface_ directory 2364 2362 
dft$queue_ interface table 2428 2426 
dft$request_ buffer 3700 3696 
dft$request_buffer_ directory 3689 2430 
dft$request buffer entries 3705 3702 
dft$request buffer entry 3710 3706 
dftG$request_ puffer _entry_flags 3718 3711 
dft$response_flags 3629 3621 
dftSresponse_parameter 36393 3623 
dft$Sretransmission_digit 3662 3658 
dft$rpc_progress_ record 2890 2682 
dft$send_data_size 2878 2681 2687 2689 2690 2893 2894 2899 
dft$send_parameter_size 2875 28398 


ex REFERENCE ABBREVIATIONS : Memodify, Azattribute, Szsubscript, I=I/O ref, R=read, Wewrite, P=zparameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 705 
IDENTIFIER-------+-+ec-e She eee See DEFINED--<----%-ee--> ---REFERENCES 
ON LINE 

dft$server_iocb_error_condition 3065 3044 

dft$server_ lifetime 2911 2610 

dft$server state 2843 2811 2846 

dft$side_door_ports 3782 3776 

dft$transaction_data 2631 2623 

dft$transaction_ digit 3661 3657 

dft$transaction_state 2957 2657 2964 3653 

dfv$max_ bytes to_write 8504 9818 9819 

disk 4274 11629/M 11629 11795/M 11795 13132/M 13132 

dispatch control 4488 10253/M 11823/M 11994/M 12327/™M 12824/M 130930/M 13186/M 

display _integer_monitor 6376 7011 

display line 6970 6972/P 

display _line 7010 7010/P 

display_monitor 6969 6973 7010 

amcS$device_manager_error_ code 3390 331 3394 337 400 403 406 4os 412 
415 418 421 424 427 430 433 436 
439 442 445 448 451 454 457 460 
463 466 469 472 475 478 481 484 
487 490 493 496 4993 502 505 508 
511 514 517 520 523 526 529 532 
$35 538 541 544 547 550 553 5S6 
559 $62 565 568 571 574 577 580 
$83 586 589 5932 595 538 601 604 
607 610 613 616 619 622 625 626 
631 634 637 640 643 646 64S 652 
655 658 661 664 667 670 673 676 
679 682 685 688 691 694 637 700 
703 7O6 709 712 715 718 721 724 
727 730 733 736 739 742 745 748 
751 754 787 760 763 766 769 772 
775 778 781 784 787 7390 783 796 
738 802 805s 808 811 814 817 820 
823 826 829 &32 &35 838 841 844 
847 850 853 856 &593 862 &865 868 
871 874 877 880 883 886 889 832 
835 898 901 904 907 910 $13 916 
919 322 925 928 931 934 937 $40 
$43 S346 $49 952 $58 961 $64 967 
$70 $73 376 979 982 385 $88 $91 
994 937 1001 1004 1007 1012 1015 1018 
1021 1024 1027 1030 1033 1036 1038 

dme$ job_mode_ allocate required 481 9909 

adme$transient_error 577 9901 10969 11166 

dme$volume_ unavailable 997 93905 

dmp$fetch multi_page_ status 7243 1Z119 12499 

dmp$fetch_page_status 7254 10886 

dmt$chapter_ number 2327 2246 

dmt$global_file name 3132 3037 

dmt$system_file_id 2313 2245 2671 3039 4599 8276 

dpe$console row size 6966 6960 

dpc$top_line_message_-size 69360 6955 

dppSdisplay_error 6854 6372 7010 

dump_a_queue 10600 10600 10607 10612 


**x REFERENCE ABBREVIATIONS : Msmodify, Azattribute, S=subscript, I=1/0 ref, Reread, Wewrite, P=parameter 


REFERENCE ABBREVIATIONS 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 706 
aR ENTIPF IER Se 22 <= S68 eS 2 tec =e “DEFINED @ ++ site sie eee eee REFERENCES 
ON LINE 
end_pfti 10444 10462/M, 10465 10465 
entry status 4535 12323 
eoffset 9756 8860/M 9864 9864 $865 3876/M 8876 9878 9891/P 
eoi_byte address 7045 8665 8666/M 8674 8677/M 9891 $891/M 9891 9891/M 
10016 10031/M 10151/M 10834 10919 10920 10934 109334/M 
10934 10934/M 10938 10944 10944/M 10944 10944/M 10967 
10S67/M 10967 10967/M 11037 11037/M 11037 11037/M 11081 
11081/M 11081 11081/M 11114 11114/M 11114 11114/M 
eoi_ modified 7068 8667/M 8676/M $891/M 9891/M 109334/M 10934/M 10944/M 10944/M 
10967/M 10967/M 11037/M 11037/M 11081/M 11081/M 11114/M 11114/M 
eoi_ state 7046 8669/M 8671/M 8675 8678/M 9891/M 98981/M $891 9891/M 
10934/M 10934/M 10934 10934/M 10844/M 10944/M 10944 10944/M 
10967/M 10867/M 10967 1OS6E7/M 11037/M 11037/M 11037 11037/M 
11081/M 11081/M 11081 11081/M 11114/M 11114/M 11114 11114/M 
exclude_partial pages 7781 12311/P 
exit and continue stream 11603 11603 11644 11675 11694 
faulted tu 11272 11372/M 11383/M 11390/M 11394 11459 11572 11754/M 11865/M 
11900 11901 
fde_p 7265 7274 7275 7276 
fde_p 7328 7T350/M 7351 
fde_p 71378 7385/M 7385 
fde_p 7380 7385/P 7387/P 
fde_p 7444 7449/P 
fde_p 7832 7838 7842/M 
fde_p 8001 8007 8008 
fde_p 8661 8665 8666/M 8667/M 8669/M 8671/M 8674 8675 8676/M 
8677/M 8678/M 
fde_p 8768 8771 8777 87793 8781 
fde_p 8795 88256 882E 8826 8826 
fde_p 8795 8834 8834 
fde_p 8796 8811/M 8813 8814/M 8815/M 8826/P 8834/P 
fde_p 8872 8922/P 8922/P 
#de_p 8872 83822/M 8922 
fde_p 8872 83933 8933/M 
fde_p 8872 8836/M 8336 83936/M 8336/M 8336/P 8936/P 
fde_p 8872 8336 8936 8936 8936 8962 8962 83962 8962 
fde_p 8872 8336 83936 
fde_p 8876 8322/P 8325/S 8926 8931 8931 8333/P 8936/P 89362/P 
fde_p 9061 90639/P 
fde_p 9665 9686 9686 9686 
fde_p S666 9684/P 9686/P 9694/P 9695/P 9700/P 9704/P 
fde_p 9743 9891 9891/M 9891/M 9891/M $8981/M $891 9891 9881/M 
9891/M 9891/M 
fde_p 9744 $783 9784/P 8808 9810 9891/P 9893/P 9895/P 9899/M 
9910/P 
fde_p $942 10005/P 10005/P 
fde_p $942 10005/M 10005 
fde_p 9349 19005/P 10006 10015 10016 10026 10027/P 10027/P 10031/M 
10057/P ; 
fde_p 10088 10128/P 10128/P 
fde_p 10088 10128/M 160128 
eR REFERENCE ABBREVIATIONS M-modify, Azattribute, S=subscript, I:!I/0 ref, Rtread, Wewrite, Pzparameter 
REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 707 
IDENTIFIER------ SRS SN SS oe ee DEF INED=s 82s ec Sssies ese REFERENCES 
ON LINE 
fde_p 10095 10128/P 10130 10146 10147/P 1O147/P 10151/M 10177/P 
fde_p 10271 10327/M 10327 
fde_p 10277 10327/P 10328 
fde_p 10776 10934 10334/M 109334/M 10834/M 10934/M 10334 109334 10934/M 
109834/M 10934/M 10944 10944/M 10944/M 10944/M 10944/M 10944 
10944 10S844/M 1O0944/M 10944/M 10967 10S867/M 10967/M 10967/M 
10867/M 10967 10967 10967/M 10967/M 10967/M 11037 11037/M 
11037/M 11037/M 11037/M 11037 11037 11037/M 11037/M 11037/M 
11081 11081/M 11081/M 11081/M 11081/M 11081 11081 11081/M 
11081/M 11081/M 11114 11114/M 11114/M 11114/M 11114/M 11114 
11114 11114/M 11114/M 11114/M 
fde_p 10776 11053/P 11053/P 
fde_p 10776 11053/M 11053 
fde _ p 10778 10834 10848 10873 10886/P 10888/P 103907 10918 10318 
10919 10920 10830/P 10934/P 103938 103938 10941/P 10944/P 
10954/P 10967/P 11005 11006 11012 11012 11022 11022 
11023/P 11037/P 11050 11050 11057 11058 11081/P 11085 
11114/P 
fde_p 11129 11154 11155/P 11160/P 
fde_p 11273 11368/P 11515/P 11595/P 11683/P 11752 11753 11774 11775 
11779/M 11863 11864 11898 
fde_p 12037 12075/P 12094 12109 12119/P 12122/P 12237/P 12281 12282/P 
fde_p 12676 12884/P 12884/P 
fde_p 12676 12884/M 12884 
fde_p 12685 12713/P 12835/P 12884/P 12885/P 
fde_p 13006 13040/P 13050 13067/P 13078/P 
file _ entry index 18798 7275/M 7340 7385 8322 S686/M 10005 10128 10327 
11053 12884 
file hash 1881 7274/M 7339 7351 7385 7385 8322 8922 S686/M 
10005 10005 10128 10128 10327 10327 11053 11053 
12884 12884 
file hash 7042 7274 7351 7385 8322 $686 10005 10128 10327 
11053 12884 
file kind 7041 8771 8777 8781 8826 8826 8826 8936 83936 
; 8936 83962 83962 83962 11006 
file limit 7049 10848 11775 117793/M 12094 12479 
file limit 11274 11775/M 11776 11777/M 11779 
file _ limits enforced 5539 10867 10965/P 12120/P 12500/P 
file limits enforced 10796 10864/M 10867/M 10886/P 
file _ offset 8277 11200 11207 
file _ offset 11133 1115S5/P 11160/P 
find _ending_ page 9863 $863 9868 $874 3877 
‘find starting page 9843 $843 9849 9855 $858 
find the_page 11396 11396 11427 11703 
first _pfti $265 $306/M $325 $327 $328/S 
-first pti 10665 10678/M 10679 10748 10749/M 
First pfti 12038 12265/P 12269 
first pFfti 12686 12808/P 12815 12847/S 12848/S 12852/S 12853/S 12856 
flags 7035 8008 &8667/M &8676/M 8779 8826 8834 83936 83936 
8962 9891/M $83931/M 10015 10934/M 10834/M 10938 10944/M 
10844/M 10967/M 10967/M 11037/M 11037/M 11081/M 11081/M 11114/M 
11114/M 
force aggressive _ aging 2043 10257/M 10257 11894/M 11994 13186/M 13186 
" ees Mzmodify, Aztattribute, S=subscript, I21/0 ref, Reread, Wewrite, P:parameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 708 
TDENTTIPIER $< S42 ee fees eee ss “DEF INEDS + s= 24455335 ~REFERENCES 
ON LINE 

force to global 8801 8824 

force _to global 8872 8936 

force to global 8887 8931/M 8936/P 8952 

found 7867 7873 7875 

found $367 S401 $402 

found $544 9623 $624 

found 9757 9847 9848 9866 9867 

found 11252 11398 11399 11681 11681 

found 11275 11907 11908 

found 12039 12164 12165 12218 12218 

found 12400 12541 12542 12581 12582 

found 12687 12722 12723 

found 13001 13076 13076 

found 13447 13437 13438 

free _ behind 11904 11904 11908 118176 11819 

full_scan_has_been_done s545 $587/M $591 9595/M 

fwd 13923 9150 $153/S 9156/M $156 9158/M $158 9168/M $193 
$196/S $198/M $1398 9199/M $231/M $231 $232 §235/S 
9237/M $327/S $328/M $328 9331/M 9331 9333/M 9335/M 
9335 9336/S 9338/M 9473/S 3475/M 8476 9478/M 9478 
9481/M 9485/M 10350/M 10350 10369/M 10369 10371/M 10371 
10373/S 10375 10378/S 10380/M 10381/M 10462 12850/M 12850 
12851 12852/M 12852 12853/M 12854/S 13335 

gofc$fde_size 7367 7275 7340 7385 8322 9686 10005 10128 10327 
11083 12884 

gfc$fde_ table base 7365 7275 7340 7366 7385 8322 S686 1OOOS 10128 
10327 "11053 12884 

gfc$fk_ catalog 7111 7123 8777 8826 &S36 89362 

gfc$fk_ device _file 7108 8781 8826 89336 8962 11006 

gfc$Ffk_job_local_file 7113 7122 

gfcS$fk_job_ permanent file 7107 8771 8826 83936 8962 

gfcS$fm_mass_storage_ file 7126 7088 10881 11154 12117 12497 

gfc$fm_served_ file 7127 7061 $810 10887 12121 12502 

gfc$fm_transient segment 7126 $783 10874 11005 11898 12110 12490 13050 

gfcS$monitor_ inter locks 7399 7386 7448 8322 10005 10128 11053 12884 

gfc$ps_account_ limit exceeded 7201 10982 12132 12514 

gfc$ps_job_mode_work_ required 7198 10898 10933 12112 12145 124982 12527 

gfcS$ps_page_doesnt_exist 7195 10880 10308 10988 12115 12128 12495 12510 

gfc$ps_page_on_disk 7196 10916 12128 12510 

gfc$ps_page_on_server 7197 10816 12128 12510 

gfc$ps_server_ allocate required 7203 109850 12145 12527 

gfc$ps_server_terminated 7202 10885 12141 12523 

gfcS$ps_temp_reject 7199 10882 12132 12514 

gfc$ps_volume_unavai lable 7200 109337 12137 12519 

gfc$qs_giobal_shared 7155 8331 

gfc$tr_job 1892 7281 7343 7385 7840 89322 8333 9424 9435 
$449 S686 10005 10428 10327 11053 12884 

gfc$tr_ system 1882 7278 7342 7385 83922 S686 10005 10128 10327 
11083 12884 

gfcStr_system_wait_recovery 1892 8913 90289 $7395 

gfpS$mtr_get_fde_p 7326 7355 7385 8322 10005 10128 10327 11053 12884 

gfp$mtr_get_locked_fde_p 7378 7390 8922 10005 10128 11053 12884 


KKK REFERENCE ABBREVIATIONS Msmodify, Atattribute, Szsubscript, s<I/O ref, Rtread, W:write, P=parameter 


NOS/VE CYBIL/II 1.0 891062 


REFERENCES OF mmm$page_fault_processor 1889-08-21 13:33:34 PAGE 709 
TDENT-LE LE Ric seo5 so soeise Seen eS se) ses. DEFINED~----+-- errr trees REFERENCES 
ON LIWNE 

gfpSmtr_get_ sfid_from_fde_p 7264 7288 8686 

gfp$mtr_unitock_fde_p 7444 7452 

gftS$allocation_unit_size 7085 TO47 

gftS$attach_count © 70390 7038 7039 

oftS$fde_ fiags 7067 7035 

gft$file_desc_entry_p 7372 7328 10277 

gft$file descriptor_entry 7032 7024 7037 7372 

gft$file_ descriptor index 1889 1879 

gfFtSfile kind 7107 7041 7119 10797 

gft$file media 7126 7OS7 

gft$locked_file_desc_entry_p 7024 7016 7210 7231 7244 7255 7265 7380 7444 
7488 7832 8001 8661 8768 8796 8876 $o61 
9666 9744 $9493 1OOSSs5 10778 10803 11128 11273 
12037 12394 12412 12685 13006 

gftSopen_count 7144 7040 7160 

gftSpage_status 7195 70193 7212 7249 7259 10801 12045 12406 

gft$queue_status 7155 79050 

gftS$segment_ lock_info 71593 7043 

gft$signature_lock 7132 7033 

gftS$system_file_identifier 1878 1868 2319 5355 5532 5729 6458 7218 7266 
7272 7326 7378 7833 8178 9674 

agft$table_ residence 1892 1880 7336 

gft$transfer_unit_size 7096 7048 

gfv$null_sfid 8178 9702 9714 

global_task_id 5316 11360 13382/Ss 13393/P 13396/S 13403/P 

global _task_id 7054 8815/M 8936/M 9684/P 39700/P 9704/P 10027/P 10147/P |. 

giobal_template file 7071 8008 8779 8826 8834 8936 8936 8962 

gtid 11276 11360/M 11361 

hash 7333 7339/M 7346/M 

hash 7378 7385/M 7385/M 

hash 8872 8322/M 8822/M 

hash $942 10005/M 10005/M 

hash 10088 10128/M 10128/M 

hash 10271 10327/M 10327/M 

hash 10776 11053/M 11053/M 

hash 12676 12884/M 12884/M 

hcount $372 9401 

head 4206 $217 9510 9510 10732 13419 13419 

hex digits 6381 7006 7007 

i 11277 11935/M 119836 11937/S 11938/S 

i 12040 12163 

i 12401 125406 

i 13229 13244 13252/P 

i 13233 13299 

i 13325 13331 

i 13353 13358 13359/S 13359/P 13364 13365/5S 13365/P 

i#fprogram_error 7375 7352 7385 7563 7585 7729 8922 3706 $719 
10005 10128 10327 11053 12770 12774 12882 12884 
12886 12946 

i#real_ memory _ address T4177 13300 13462 

id 7610 7556 7556/M 7563 7584 7625 7623/M 7727 7727/™M 


RS REFERENCE ABBREVIATIONS Memodify, Azattribute, S:subscript, 1:2:1/0 ref, Reread, Wewrite, P:parameter 


qo 


REFERENCES OF 


IDENTIFIER----------------+---- 


identifier 
identifier 
ijl_ordinal 


ijl_ordinal 


ijl_ordina}l 


_ordinal 
_ordinal 
_ordinal 


_ordinal 


ijl_ordinal 
tjl_ordinal 


a 


tin, Can, Cam. Cat, Ree, Coe, fae, Cas, Ets 


wht at es et et ott 
VuUDVTUVUUVU 


a ee ee ee ee ee ee | 
coo O09 0 © © Ol 


+ ht wt 


REFERENCES OF 


IDENTIFIER-------------- 


ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 
ijle_p 


wt wt 


was 


ijlo 

‘in length 
in _pva 
in_use 
-in_use 


5 Ie 


eX 


mmm$page_ fault processor 


DEFINED 
ON LINE 


1262 
6143 
1861 


4169 


4501 


7267 
7314 
7532 
7714 
7715 
8386 
9120 
$251 
9254 
9357 
S665 
9665 
9670 
9743 
12387 
12676 
12676 
12899 
12899 
9260 
9368 


12688 


12905 
4502 
7327 
7378 
7379 
7533 
7551 
7714 
7714 
7718 
7741 
8872 
8872 
9120 
9126 


REFERENCE ABBREVIATIONS 


mmm$page_fault_processor 


DEFINED 
ON LINE 
$251 
$357 
9665 
9665 
$671 
$743 
9758 
$942 
$942 
9944 
10088 
10088 
100390 
10271 
10272 


10432 
10510 
10776 
10776 
11279 


12041 


12358 
12387 
12676 
12676 
12676 
12676 
12676 
12676 
12899 
12899 
12899 
13007 


7714 
7742 
7834 
8872 
190804 
12676 
12899 
4237 
423.6 
1862 
7313 


‘REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


- -REFERENCES 


8268/M 
9396/M 
9685/M 
9706 
9684/P 
$837/™M 
9837/P 
10005/P 
10005 
10005/P 
10128/P 
10128 
10128/P 
10327 
10294 
10382/P 
10452 
10536 
11053/P 
11053 
11370/M 
11659 
11792 
11948 
11980 
12184/M 
123464 
12361/M 
12469/M 
12770/P 
12770/M 
12770 
12774 
12884/P 
12888 
12946/P 
12946/M 
12946 
13061/M 
13129 
13160/P 
1317393/M 
7728/P 
7751/P 
7840 
8933 
10863/M 
12770/P 
12946/P 
13062 
13063/P 
7839 
7588 


Memodify, 


1.0 88102 


3706/P 
9693 


$838 


102396 


10454 
10547 


11625/M 
11726/M 
11832/M 
411951/P 
11982 
12195 
12345 
12363/M 
12470/M 
12770 
12848/M 
12770/P 
T2774/P 


12946 
12953S/M 
12946/P 
13105/M 
13133 
13161 
13179 


10866/M 
12882/P 


13071 

13067/P 
s598 
7561/M 


1.0 89102 
REFERENCES 

7723 9706 9706/M 
12770/M 12770 12774 
12886 12886/M 12886 
11762/M 11764/M 11772/M 
1175S3/M 11770/M 11784/M 
7840 7897 8818/M 
8961/M 8969 8970 
11709 12629 13076 
7897/M 9135 9136 
10333 10334 10741/M 
126293 12633/M 12643/M 
12965/P 13076/M 
8818 8933/P 8336 
12633 
7286/M 
7282 9686 
7836/S 7536/S 
7723/8 7723/8 
7723/P 7728/P 
13396 
9147/S 9147/S 9190/S 
$268/S 9268/5 
9268/P 9316 
$396/S 9396/S 
9685/5 9685/S 
9686/M 
9686/P 
9837/S $837/S 
12469/S 12469/S 12470/S 
12770/P 12770/P 12882/P 
12770/8 12770/S 12848/S 
12946/P 12946/P 
12946/S 12946/S 12959/8S 
$268/P 9271 $272 
9396/P 9397 9398 
8480 9483 
12770/P 12772/P 12774/P 
12884/P 12886/P 
12946/P 12859/P 12960 
8922/P 11053/P 11370 
7344 
7385 
7385/P 
7536/M 
7557 7559/P 
7723/M 
7728 7728/P 
7723/P 7724 7728/P 
7749 7751/P 
8922/P 
89822 
9147/M 9190/M 
9147/P 9148 9190/P 

M=modify, Azattribute, 


9719 
9706/P 


10297 


10455 
10548 


11626 
11727 
11833 
11983 
11984 
12196 
12346/M 
12364/M 


12770/P 
12882/M 
12882 
12886 


12946/P 


13106 
13148 
13164/M 


13071 
8740 
7561 


Azsattribute, 


$706 
12774/M 
12946 
11786/M 


8825/M 
9837/P 


9147/P 
11214/M 
12769/P 


8955 


9190/S 


12470/S 
12882/P 
12848/S 
12959/S 
9292 
9399 


12848/P 


12184 


$191 


S=subscript, 


9719/P 
$712/P 


10306 


10491/P 
10548 


11631/M 
11733/M 
11851/M 
11955 
11984 
12208 


12365 
12882/P 


12882/P 
12886/P 


13114/M 
13150 
13168 


13072 
8933 
7728/™M 


S=subscript, 


1989-08-21 13:33:34 

9719 9719/M 9719 12770 
12774 12882 12882/M 12882 
12946/M 12946 
8833 8936/M 8936/M 8955/M 
10741 113989 11681 11708 
9190/P 9316/M 9396/P $685/P 
11399/M 11681/M 12225/M 12227/M 
12848/P 12882/P 12945/P 12959/P 
83693 10866 12225 12469/P 
12882/S 12882/S 
$293 
$462 $8463 9464 $479 
12849 12857/M 12857 12882/P 
12361 13061 13365/P 

I=:I/O ref, Rtread, Wewrite, Pep 


§9716/P 


10320 


10554/P 


11632 
11734 
11852 
11957/P 
11986/M 
12305 


12366/M 


12882 


13115 
13151 
13173 


$422 
7728 


Is1/0 ref, 


1989-08-21 13:33:34 
9719/P 
10327/P 10331 10337/P 
11648/M 11643 11658/M 
11740/M 11741 11791/M 
119323/P 11945 11947 
11961 11964/™M 11971 
11986 
12323 12324/M 12325/M 
12882/P 
13121/M 13122 13128/M 
13154/P 13156 13158 
13175 13177 13177 
13243 
7754/™M 7754 9706 
Reread, Wswrite, 


PAGE 710 


arameter 


PAGE 711 


P=parameter 


REFERENCES OF 


mmm$page_fauit_ processor NOS/VE CYBIL/II 1.60 89102 1989-08-21 13:33:34 PAGE 712 
IDENTIFIER«------s--0+ soos 2s DEF INED= << 25: 252 = += --REFERENCES 
ON LINE 
$706/M 9706 $719 $719/M $719 12770/M 12770 12774 
12774/M 12774 12882/M 12882 12886 12886/M 12886 12946/M 
12946 
inc lude_ pages _in_dump 1869 8834/P 8336/P- 
include _pages_in_dump 8003 8010/M 8012/M 8015/M 
inc lude_pages_in_dump 8795 8834/M 8834/M 8834/M 
include _pages_in_dump 8872 8336/M 8336/M 8336/M 
increment _now 3359 9448 9490 §501 
index 2252 13392/S 13396/S 
index 9369 $399 
index 12689 12721 12756 12800 
index op 8207 7536 7723 9147 $190 9268 3396 9685 $837 
"12469 12470 12770 12848 12882 12946 12959 
inhibit 10 7717 7724/M 7725 
inhibit _io 12676 12770/M 12770 12882/M 12882 
inhibit 10 12690 12769/P 12771 12882/P 12883 
inhibit io 128399 129486/M 12946 
inhibit io 12906 12945/P 12847 
inhibit sSwap_count 4541 12635/M 12635 12644/M 12644 
initialize new _ast_entry &795 8839 8936 
initiated 4245 11528/M 11529 11553/M 11560 
int 6978 T7003 
int 6988 7003/M 
integ 6986 6987 
io_error 4177 S817/M 10737/M 
io function 10784 10930/P 11105/P 
io function 11128 11155/P 
1o_id $747 $893/P $895/P 
io_id $955 8963/M 10056/M 10057/P 
io_id 10100 10176/M 10177/P 
io_id 10782 10830/P 109365/P 11106/P 
io_id 11134 11156/P 11160/P 
io id 11280 11316/M 11515/P 11595/P 11683/P 
io_id 12691 12873/M 12885/P 
io id 13010 13027/M 13078/P 
ioc$allocate 2975 2341 
ioc$disk_min_ecc 1044 1045 1053 
ioc$max_unit_number 3670 3673 
ioc$no_error 1083 $817 10737 
ieoc$read_ahead_on_server 2375 2343 
ioc$read_for_server 2974 23398 
iec$read_from_client 2974 2340 
ioc$read_page 2969 2336 11160/P 11515/P 11595/P 11683/P 13078/P 
ioc$st_errors 1053 10854 1055 1056 1057 1058 10598 1060 1061 
1062 1063 1064 1065 1066 1067 1068 1069 
1070 1071 1072 1073 1074 1075 1076 1077 
1078 
ioc$swap_in 29370 2334 
ioc$swap_out 2970 2334 
ioc$tape_min_ecc 1046 1047 
ioc$write_for_server 2975 2339 
ioc$write page 2969 2336 10057/P 10177/P 12885/P 
ioc$write to client 2975 2340 
**x REFERENCE ABBREVIATIONS M=modify, Azattribute, S*tsubscript, I:I/0 ref, Rtread, W=write, Ptparameter 
REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 881062 1989-08-21 13:33:34 PAGE 713 
IDENTIFIER-----e-eee-- eseee ee «DEFINED = << + ses cee meee © -~REFERENCES 
ON LINE 
ioe$requests_ full 1062 9903 10969 11166 
ioeg$unit disabled 1076 $905 10971 11168 
iop$enabie_all_disk_units 7481 13398 
iop$pager_io 7487 $893 11155 
iot$interrupt 3737 2509 
ietS$io_error 1083 4177 4600 
iot$io_ function 23969 2333 2670 7232 7492 9746 10784 11128 
iet$logical_unit 3673 3624 
iotSport_ number 3742 3739 
iot$pp_number 3732 2450 2451 
iot$transfer_ count 5817 5805 
iotype $746 $893/P 9895/P 
ipti 7868 7873 7880/S 
ipti $370 9401 
ipti 11252 11339 11399/S 11681 11681/S 
ipti 11278 11907 11911/S 
ipt i 12042 12164 12166/S8 12218 12220/S 
ipti 12692 12722 
ipti 13001 13076 13076/S 
jcb_p 4484 11583 11584 11585 11586 11950 11951/P 11954 11957/P 
12196 13153 13154/P 13157 13160/P 
jcb_p 10273 10238 10299 190300 10305/M 10305 10320 
jcb_p 10431 10449 10450/M 10450 10457/M 10457 
jcb_p 10511 10528 10530 
imc$detached_job_wait_time_max §163 5160 
jmc$dsw_job_recovery 1095 $271 $292 9398 9463 $480 
jmc$highest_det_job_wait_time 5173 5163 5174 
jmc$highest_prio_age_interval 5423 5414 5424 
jmc$highest service _accumulator 49853 4954 
imc$highest service factor valu 5447 5440 
jimc$highest_working set_size $199 5190 5200 5202 5204 5206 
imc$ies_job_in_memory_non_swap 4775 12323 
imc$ies  job_swapped 4778 4787 
jmc$ies_ swapin_in_ progress 4777 4786 
jmc$inhibit memory manager_io 1198 7724 12770 12882 12946 
jimc$iss_executing 1160 9838 
jmc$iss_idie_tasks_ initiated 1161 1188 
jmc$iss_Sswapin_io_complete 1186 1189 
imc$iss_swapin_requested 1182 11898 
jmc$Siss_swapout_complete 1181 1188 
jimc$iss_swapped_io_cannot_init 1172 1198 
jimc$iss_ swapped_io_ complete 1177 12960 
jmc$iss swapped_no_io 1163 1198 
jmc$keyword_ offset maximum 4370 5191 5415 
jmc$k j1_maximum_entries 2395 23988 2989 4905 
jmc$kol_maximum_entries 3005 29390 
jmc$iock aj 7571 7558 7S859/P 7561 7728/P 7728 7751/P 7754 S706 
9706/P 9706 93719 $7139/P 97198 12770/P 12770 12774 
12774/P 12774 12882/P 12882 12886 12886/P 12886 12946/P 
12946 
imc$max_active_jobs 2986 5396 5404 5405 
jmc$max_ajl_ord 2387 29380 23986 7763 


*** REFERENCE ABBREVIATIONS : Msmodify, Azattribute, S:subscript, I=1I/0 ref, R=read, Wewrite, P=zparameter 


REFERENCES OF mmm$page_fault processor 


IDENTIFIER----- ete e er reer eee ---D 
18) 
jmc$max_ dispatching contro! 
jmc$max_ dispatching priority 
jmc$max_ijl_entries 
jmc$max_ijl_index_ count 
jmc$maximum_job_classes 
jmc$maximum_job_count 
jmc$maximum_output_count 
jmc$maximum_ service classes 
jmc$min_dispatching control 
jmc$needed_memory_ avai lable 
imc$nuli_ajil_ordinal 
jimc$null_service_ class 
jmc$priority_aging_interval_max 
jmec$priority_p1 
jmc$priority p10 
jmc$priority_p14 
jmc$priority_p8& 
ime$required_ offset 
jmc$reserved_ajis 
jme$service_accumulator_maximum 
jimc$service_factor_value_ max 
jmc$swap_job_ for_memory_ reserve 
jmc$system_default_offset 
jmc$system_supplied_ name_size 
jmcS$unlimited offset 
jmc$unspecified_offset 
jmc$working set_size_maximum 
jmp$assign_ajl_with_jlock 
jmp$check_scheduler_ memory _ wait 
jmp$free_ajl_with_lock 
jimp$get_ijle_p 


jimp$ lock_ajl_with_lock 
imp$recognize_thrashing 
jmp$set_scheduler_event 
jmp$set_scheduler_memory_ event 
jimp$set_ scheduler _memory_ event 
jmp$set_scheduler_memory event 
imp$set scheduler memory event 
jmp$Sunilock_aj} 
imt$active_job_ list 
jmtS$active_job_list entry 
jymt$ajl_ordinal 


jmt$delayed_swapin_work 
imt$detachned_job_wait_t ime 
imt$dispatching control 
imt$dispatching control_ index 
_ jJmt$dispatching_controls 
imt$dispatching priority 


imt$ijl_block_index 
jmt$iji_block_number 


*et 


REFERENCES OF mmm$page_fault_processor 


ee 


EFINED---------------- 


N LINE 
4737 
4659 
1914 
1915 
4883 
3002 
3012 
4986 
4736 
1219 
7763 
4979 
5414 
4673 
4682 
4686 
4680 
4968 
2991 
4945 
5440 
1213 
4369 
5021 
4966 
4967 
5190 
7767 
7498 
7574 
7532 


7740 
7542 
7545S 
75193 
$120 
$228 
9357 
7550 
7320 
7312 
2980 


1099 
5160 
4707 
4740 
4710 
4619 


1911 
1910 


REFERENCE ABBREVIATIONS 


IDENTIFIER------------ ese ewe ee DEF LNED<< == 
ON LINE 
jmt$ijl_dispatching control 4696 
jmt$ijl_entry_ status 4773 
jmt$ijl_ordinatl 1905° 
jmtSijl_p 8193 
imt$ijl_page_fault_count 4802 
jmt$ijl_page_ stats 4796 
imt$ijl_service_class_stats 4790 
jmt$ijl_statistics 4835 
jmt$ijl_swap_count 4811 
jmt$ijil_swap_counts 4806 
jmt$ijl_swap_status 1159 
jmtS$initiated job _list_block 8204 
jmtS$initiated job_list_entry 4532 
imtS$initiated job_list_p 8210 
imt$S$input file location 4925 
imt$jil_job_leveler_ state 3022 
jmt$ji_job_leveler_ status 3016 
jmt$job_abort disposition 4934 
jmt$job_class 4886 
jmt$ job_control_ block 5116 
jmt$ job_mode 4889 
jmt$job_priority 4asg94 
jmt$ job recovery _ disposition 4937 
jmt$ job_sched_event_selections 1224 
jmt$ job_scheduler_event 1222 
~~ gmt$job_scheduler_events 1202 
jmt$job_system_id 5179 
jmt$kjil_index 43905 
jimt$maximum_act ive_jobs 5396 
imt$priority_aging_interval 5411 
imt$queue file_ijl_information 4917 
imt$scheduling_ data 4582 
jmt$scheduling priority 5387 
jimt$service_accumulator 4942 
jmt$service_ciass_index 4989 
.imt$service_ class_name 5429 
imt$service_ factor value 5437 
jimt$service_ factors 5433 
jimt$swap_data 4598 
'jmt$swapout_reasons 4992 
imt$swapped_job_entry 5007 
jmt$system_supplied_name 5018 
-imt$task_time_slice 4750 
imt$time_slice_values 4729 
imt$user_supplied_name 5183 
imt$working set_size 5187 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


REFERENCES 


4741 
4618S 
8241 
8205 
4886 
2995 
3005 
43989 
4740 
7523/58 
7728 
4980 
5411 
4620 
4621 
4621 
4620 
5205 
2986 
4942 
5437 
12326/P 
4970 
5018 
4955 
5203 
5187 
7728 
7529 
7559 
7538 
12469 
7728 
10249 
12326 
7526 
$180 
9241 
$506 
7565 
7298 
7320 
2669 
7772 
1103 
51745 
5379 
46397 
4708 
4474 
8394 
1907 
1906 


Memodify, 


NOS/VE CYBIL/II 


--°---REFERENCES 


4549 
4S35 
1861 
5037 
7532 
8239 
8188 
4797 
47392 
4570 
45693 
4807 
4589 
4538 
8210 
4502 
7551 
8207 
10090 
12419 
8194 
4920 
3017 
2608 
4918 
4594 
4484 
4s51 
4s91 
4919 
7503 
7508 
1222 
5131 
4537 
5373 
5381 
4576 
4560 
5380 
4584 
4595 
S366 
§375 
$375 
4562 
4590 
4607 
4533 
4730 
4714 
5130 
5141 


1.9 88102 


4622 


7525/S 
7750 
6393 


6393 


5207 


5164 


7751 
9180 
9706 
71723 
12470 
7758 
11994 


9706 


4482 


4566 


4707 


4548 
8395 
8207 
8195 


1.0 89102 


2198 
5135 
7647 
8240 


4798 


4808 
4733 
4539 


5061 
7575 
9126 
10272 
12688 


10273 


4592 


1224 


5179 


4585 
5364 
S367 


5062 
5129 
4731 
5340 


5142 


4623 


8180/S 


12770 


5175 


12770° 


$241 
9719 
9147 
12770 
12770 
13186 


9719 


4536 


4698 


8196 


Azattribute, 


2335 
6476 
7715 
8386 


4799 


4540 
5134 
7718 
$260 


10432 
12805 


10431 


$388 


7545 


4586 
5374 


5154 
6475 


9180/S 
12882 


$201 


12882 
9506 
12774 
9190 
12848 
12882 


12774 


6884 


4699 


4169 
6885 
7742 
9254 


6886 
7741 
3368 
10510 
13007 


10511 


5389 


5371 


$252 


$241/S 9241/S 9506/S 


12946 


5425 
12946 
12886 

9268 


12882 
12946 


12886 


7554 


4700 


S=subscript, I: 


4501 
71267 
7768 
9670 


7315 
8108 
$671 
11279 


5390 


5372 


1989-08-21 


93396 9685 
12946 12959 
7721 7743 
4712 _ $327 


1/0 ref, R=read, Wewrite, 


1989-08-21 
4555 4583 
7271 7292 
7834 8109 
3759 190804 
7327 7379 
8124 6131 
S673 $758 
12041 12358 


5391 


13:33:34 


9837 


7746 


53293 


13:33:34 


5036 
7314 
8219 


7533 
8162 
$944 
12402 


9506/S 


PAGE 714 


P=parameter 


PAGE 715 


Memodify, Azattribute, Stsubscript, I1:1/0 ref, R=read, Wewrite, P=parameter 


REFERENCES OF mmm$page_ fault processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 716 
IBENTIFPIERS <2 SA cese re ss ae eee DEFINED-----c eee ere nee REFERENCES 
ON LINE - 
imv$ajl_p 7298 7282 7558 7561/™M 7561 7728/M 7728 7754/M 7754 
8686 9706 $706/M $706 $719 9719/M 3719 12770/M 
12770 12774 12774/M 12774 12882/M 12882 12886 12886/M 
12886 12946/M 12946 
imv$ijl_p 8188 7536 7723 $147 9190 $268 $396 $685 $837 
12469 12479 12770 12848 12882 12946 12959 
jmv$ job_sched_events_selected 7503 7523 
jmv$ job_sched_events selected 9120 93180 
jimv$ job_sched_events_ selected 9228 9241 
imv$ job sched _events_selected 9357 3506 
imv$ job _scheduler_event 7508 7525 
imv$ job_scheduler event 9120 $180 
jmv$ job_scheduler_event 9228 9241 
jmv$ job scheduler event 9357 g506 
jimv$memory needed_by_ scheduler 7514 7524 
imv$memory needed _by_schedutler 9120 $180 
jmv$memory needed by scheduler $228 $241 
jmv$Smemory needed _by scheduler $357 9506 
jmv$null_ijl_ordinal 7292 7279 8100/P 8280/P S686 10696/P 10863 
imv$system_ijl_ordinal 8219 8825 8836 8961 8370 11214 12227 12470/P 12643 
13396 
job _fixed_asid 4545 7728/P 7751/P 12770/P 12882/P 12946/P 
job_fixed contiguous pages 4571 83272 9233 $397 $399 $462 9464 9479 $483 
12857/M 12857 
job_ijle_p 12402 12469/P 12635/M 12635 12636/M 12636 12644/M 12644 12645/M 
12645 
job _monitor taskid 4550 S712/F 9716/P 
job_page_ queue count 50093 $270 9287 
job_page queue _ list 4861 9148 $191 10306 103206 10331 10547 10548 10548 
11953 11955 11981 11983 11985 11987 12185 12197 
12849 13156 13158 13174 13176 13178 13180 13365/P 
job_page_queue_list 9255 9291/M 9324 9325/M $327/S 9328 9331/M 9335/M 
job_page_queue_ list $358 $384 $385 S464 9465/M 9467 9471 9473 9475/S 
$478 $481/M 9482/M 9483/M 9485/M 9486/M 9487/M 
job _ termination 9361 $3397 9435 $463 9480 
isc$isqi_swapped_io_completed 5041 5043 
isc$isqi_swapped_io_not_init 5040 5043 
jsp$free_swapped_jobs_memory 7646 9100 9280 10696 12965 
jst$changed_asid_entry 5084 5075 
jst$ijl_swap_queue_id 5040 5035 8246 
jist$ijl_swap_queue_link 5034 4544 
jist$ijl_swap_queue_ list 8246 8230 
jst$ijl_swap_queue_list_entry 8238 8246 
istS$io_control_ information 5048 4563 
ist$swap_file descriptor 5060 4564 
ist$swapped_page_descriptor 5069 5067 
ist$S$swapped page descriptors SO66 5063 
isv$free working set_on_swapout 8226 10468 
jsv$max_pages_first_swap_task 8252 10537 
jisv$maximum_pages_to_swap 8256 10539 
keypoint page _ fault status 11281 11329/P 11330 
3 REFERENCE ABBREVIATIONS Mtmodify, Aztattribute, S=:subscript, I=1/O0 ref, Rtread, Wewrite, Ptparameter 
REFERENCES OF mmm$page-fault processor NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 717 
IDENTIFIER----e ec ete seen ene DEFINED~-----"--- eee eee REFERENCES 
QN LINE 
last _ check time 13352 13357 13369/M 
last contiguous pft i $371 $400/M 9465/S 9481 
last_faulted_tu 11282 11383/M 11394 
last _page_fault 5545 11391 11382/M 
last_page_fault 11283 11391/M 11393 11540 
last pfti 10516 10552/M 10554/P 
last_pfti_index 8315 7681 7694 7695 7639 7965 79366 7971 7884/M 
7993/M 8027/8 8028/M 8028 3972 $972 $372 gS76 
S376 $376 3988 $988 99388 10063 10063 10063 
10317/M 10358/S 10358/M 10358 10361/S 10361/M 10361 10389 
10460/M 10473/S 10479 /M 10473 104893 11902/M 11921 12317 
12317 12317 
last _segment_number 70583 8814/M 83936/M 9694/P 9695/P 190328 11085 
length 4323 1209 1 12192 12311/P 
length 4342 12448 12448 12453 12463 12464 12475 12477 
length 3760 9878/M $886 $893/P $895/P 99319 
Limit 10430 10472 
line 6998 7O001/M 7006/M 7007/M 7O10/P 
line index 6899 7002/M TOO6B/M 7007/M 7008/M 7008 7FO1O/P 
Tink 4166 $150 9151 9153/58 $153/M $153 $155 93156 9158/s 
$158/M $158 $162/M $168/M §196/M $198/M $231/M $235/M 
$320 9327/M 9$328/M $335 $336/S §336/M $338/M 9405 
$413 9465 9473/™M 9475/M 10326 10343 10371/M 10373/M 
10374/M 10378/M 10380/M 10467 10553 10602 11026 11078 
11094 11112 11181 12290 12819 12837 128SO0/M 12852 
12853/M 12854/M 12855/M 13335 13342 
Tink 4222 go09g5 $101 9103 9151/M 9156/M $183 $194/M $196/S 
9198 $199/M $231 $232 $233/M §$235/S $237/M 92398 
9304 $324 $325/M $327/S $328 $331/M $331 9332/M 
§9333/M 9335/M $337/M 9384 9385 9465/M 9470 $471/M 
$471 9473/S 9474 9475/S 83476 9478/M $478 9481/™M 
9482/M 9485/M S486/M 1060319 10369/M 10376/M 10461 10462 
10847 10590 10696 10696 10696 12850/S 12850 12851 
12852/M 12854/S 12855 12856/M 13329 
Tink 10283 10318/M 10323 10340 10340 10341/S 10342 10343/M 1060350 
10368 10369 10371/S 10371 10373/8 10373 
lock 7378 7387 
lock 7419 7432 
lock 7444 7443/M 
lock 7459 7471/M 
jock 7550 7556 7556 7556/M 7556/M 7556 
Tock 7550 7563 7563 7563/M 7563 7563/M 
lock 7581 7884 7587 7588/M 7588 7590/M 
lock 7617 7625 7627 7629/M 7631/M 7631 
lock 7714 7727 7727 7727/M 7727/™ 7727 
lock 7714 77293 77298 7729 /M 77293 7729 /M 
lock 7716 7726 
lock 8872 8822 
lock S665 $706 9706 $706/M 8706/M $706 $719 $719 9719/M 
9719/M 9719 
lock S665 $706 S706 9706/M $706 S706/M $7193 $719 $719/M 
$719 9718/M 
lock $342 10005 


Coe Oe ey 


ee * REFERENCE ABBREVIATIONS Memodify, Aztattribute, Stsubscript, I=I1/0 ref, R=read, Wewrite, P=parameter 


ne 


REFERENCES OF 


IDENTIFIER----- ee ee eee eee ee eee 


lock 
tock 
lock 
lock 


‘Jock 


lock 
lock 
lock 
lock 
locked 
locked 


locked for _write 
locked page 


loop 

low_on_page_ frames 
lower 

lsva 

Tu_link 


lu_pfte op 


m 


max_bytes to _ write 
max working set size 


maximum pages _ to_swap 
maxws aio_s lowdown 
mMaxws_aio_s lowdown display 
mcount 

mcount 

mcount 

mcount 

mcount 

mcount 

media 


memory _ avai lable 
memory kKeypoints 
memory reserve request 


min working set size 
minimum 
minimum_working set 


xe * 


REFERENCES OF 


IDENTIFIER----------- err eeeee 


mme$ 


mmc$ap_ignore_maxws and trim 
mmc$aprc_assign 
mmc$aprc_cancel_reserve 
mmc$assign_active escaped 
mmcS$assign_active_ null 
mmc$bd_ explicit _io 
mmc$bd_job_swapping_io 
mmc$bd_paging_io 
mmc$cell_ pointer 
mmc$debug 

mmc$eoi_actual 
mmc$eoi_rounded 


mmc$eoi_uncertain 


mmc$first_ loader predefined seg 


mmc$heap_ pointer 
mmc$iocb_table_ size 
mmcS$iorc await io completion 
mmc$iorc write pages 
mmc$irs_ active 

mmc$irs complete 

mmc$irs_ none 

mmnc$kpfs disable keypoints 
mmcSkpfs_ invalid _keypoint 
immc$kpfs_ normal 

mmc$kw_asid 
mmc$kw_clear_space 
mmc$kw_current_segment_ length 
-mmc$kw_error_exit procedure 
mmc$kw_g1_key 
mmc$kw_hardware_ attributes 
_mmc$kw_inher itance 
mmc$kw_max_segment_length 
mmc$kw_ preset _value 
mmc$kw_ps_transfer_size 
mmc$kw_ring numbers 
mmc$kw_segment_access control 
mmc$kw_segment_number 
_mmc$kw_shadow_segment 


ee x 


mmm$page_ fault _processor 


DEFINED 


ON LINE 
10088 
10776 
12676 
12676 


12676 


12676 
12899 
128998 
12839 
7185 
7608 


7161 
4172 


12750 
10798 
8349 
9761 
10284 


10286 


1946 


$762 
5141 


10518 
S343 
4574 
$956 

10091 

10287 

10519 

11284 

1263933 
7087 


12043 
6869 
4554 


5142 
4228 
10434 


REFERENCE ABBREVIATIONS 


mmm$page_fault processor 


-DEFINED----------- 


ON LINE 
1271 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


1277 
1302 
1327 
1352 
1376 
1400 
1425 
1449 
1475 
1500 
1524 
1850 
1574 
1598 


—z 
N 
~~ 
‘o 
N 


5622 
§643 
5609S 
5631 
§612 
8637 


>; Memodify, 


1.0 89102 


1280 
1305 
1330 
1355 
1378 
1404 
1428 
14582 
14793 
1503 
1527 
1553 
1577 
1602 


om 


2012 
2015 
9698 
8854 


—_ 


$884 


83969 
$891 
8678 
10967 
9891 
8006 


1.0 8910602 
-REFERENCES 

10128 
11053 
12770 12882 
12770 12770 12770/M 
12774/™M 12774 12882 
12886 12886/M 12886/M 
12770 12770 12770/M 
12774 12774/M 12882 
12886 12886/M 12886 
12884 
12946 
12946 12946 12946/M 
12946 12946 12346/M 
7387 7432 8322 
7556 7627 7727 
12886 12946 
10006 10130 
7886 7886 7887 
10474 10740/M 11213/M 
11681 11681 11681 
13076 13076 13076 
12750 12786 127391 
10824/M 10825 10917 
9575 9594 11200 
9833/M 9846/M 9847 
10318/M 10348 10350/M 
10381/M 
103439/M 10380/M 
9142 9173 9182 
10130 10161 10214 
12572 12652/M 12767 
9808/M $818 9819/M 
10523 10530 11583 
13157 
10537/M 105393/M 10542 
11963/M 11963 13163/M 
11964/M 13164/M 
$s961/M 100539/M 10059 
10107/M 10181/M 
103390/M 10382/P 1033938 
10554/P 
11923/P 
12772/P 
$9783 9810 10873 
13050 
12207/M 12211 
$132 $308 9414 
12208 12324/M 12325/M 
12365 12366/M 
190320 
10594 
10463 

M=emodify, Azattribute, 


1283 
1308 
1333 
1358 
1382 
1407 
1431 
1455 
1482 
1506 
1530 
1556 
1580 
1605 


10877 
$698 


10961 


$164 
10934 
9891 
11037 
10934 
8834 


Arattribute, 


12770/M 
12882 
12886 
12770 
12882 
12886/M 


129486/M 

12946 

10005 
3706 


7889 
11399 
11913 
13076 


11207 
9865/M 
10351/M 


9647/M 
11077/M 
12944 

9835 
11884 


10543 
13163 


10067 


11005 


11352 
12344 


1286 
1311 
1336 
1361 
1385 
1410 
1434 
1458 
1485 
15093 
1833 
15598 
1583 
1608 


108399 
$699 


11151 


$173 
10944 
9891 
11037 
10944 
8336 


Szsubscript, 


12770 
12882/M 


12770/M 
12882/M 


12946 

12946/M 

10128 
$719 


9852 
11399 
12551 


9866 
10367 


$848 
11111/M 


9835 
11585 


100693 


11154 


11705 
12345 


1989-08-21 


12774 
12882 


12774 
12882 


11083 
12770 


9871 
11399 
12766 


10374 


9867 
12238 


$836 
11586 


10071 


11898 


12346 


Szsubscript, I:+1/0 ref, 


1989-90 
1289 12932 
1314 1317 
1340 1343 
1364 1367 
1388 1391 
1413 1416 
1437 1440 
1461 1464 
1488 1491 
1512 1515 
1536 1540 
1562 1565 
1586 1589 
12146 12528 
10877 10899 
9183 
10967 11037 
10934 10934 
11081 11081 
10967 11037 
13391 
IsI/O ref, 


13:33:34 PAGE 718 
12774 12774/M 
/M 12882 12886 
12774 12774/M 
12882/M 12886 
12884 
12774 12882 
10109 10353 
11399 11681 
12881 12943 
10375 10378/S 
10006 10043 
/M 12284/M 12555 
11954 12196 
12108 12489 
/M 12363/M 12364/M 
Reread, Wewrite, P=parameter 
8-21 13:33:34 PAGE 719 
1295 1299 
1321 1324 
1346 1348 
1370 1373 
1394 1387 
1419 1422 
1443 1446 
1468 1472 
1494 1497 
1518 1521 
1544 1547 
1568 1571 
1592 1595 
12146 12528 
11081 11114 
10944 10944 
11114 11114 
11081 11114 


R=read, Wewrite,” P:parameter 


REFERENCES OF 


IDENTIFIER----- ee eee ew ee cee wee 


mmcSkw_ software attributes 
mmc$kw_ wired segment 
mmc$ip_aging_ lock 

mmc$ Ip_not_ locked 


mmc$ ip_page_in_lock 

mmc$ip_ server _ allocate lock 
mmc$ip_ write protected lock 
mmc$max_ rma_list_ length 
mmc$mf_segment_mgr_ flag 
mmc$mf shadow _file_ reference 
mmc$mf_ volume_unavai lable 
mmc$mmu_age_interval_ ceiling 
mmc$mmu_age_interval_floor 
mmc$mmu_aggressive_aging_one 
mmc$mmu_aggressive_aging_two 
mmc$mmu_min_avail_pages 
mmc$S$mmu_ps_prestream 
mmc$mmu_ps_random_limit 
mmc$mmu_ps_reads 
mmc$mmu_ps_threshold 
mmc$mmu_ps_transfer_size 
mmc$mmu_queue_age_device_file 
mmc$mmu_queue_age_file server 
mmc$mmu_queue_age_other 
mmc$mmu_queue_age_pf_execute 
mmc$mmu_queue_age_pf_non_exec 
mmc$mmu_queue_age_site_queues 


mmc$mmu_queue_age_task_service 
mmc$mmu_queue_max imum 


mmc$mmu_queue_ minimum 


mmc$mmu_swapping_ aic 
mmc$mmu_tick_t ime 
mmc$move_pages_max_req_ length 
mmc$mp_clear_modified 
mmc$mp_set_ modified 

mmc$mpt_ done 
mmc$mpt page table _ full 
mmc$num_loader predefined segs 
mmc$page_streaming counters 
mmc$pq_avai 


eK x 


REFERENCES OF 


IDENTIFIER------- wen eee ee ee eee 
mmc$pq_avail modified 


mmc$pq_ first _valid_in_pt 
mmc$pq_free 


mmc$pq_job_base 
mmc$pq_job_fixed 


mmc$pq_job_io_error 
mmc$pq_job_working_set 


mmc$pq_last_reassignabie 
mmc$pq_ shared device file 
mmc$pq_shared_ first 
mmc$pq_shared first_site 
mmc$pq_ shared _io_error 
mmc$pq_shared_ last 

mmc$pq_ shared _last_sys 
mmc$pq_ shared num_sites 
mmc$pq_ shared other 
mmc$pq_ shared pf execute 
mmc$pq_ shared pf _non_execute 
mmc$pq_ shared site_o1 
mmc$pq_ shared site_25 
mmc$pq_shared_task_service 
mmc$pq_swapped_io_error 
mmc$pq wired 

mmc$sa_fixed 

mmc$sa_free_ behind 
mmc$sa_read_ transfer _unit 
mmc$sa_stack 

mmc$sa_wired 

mmc$sac_file server terminated 
mmc$sac_no_append_permission 
mmc$sac_read_ beyond _eoi 
mmc$sac_read_write_beyond_ms1 
mmc$sar_modify 
mmc$sar_write_extend 
mmc$sas_allow_access 
mmc$sas_inhibit_access 
mmc$sas_terminate_access 
mmc$sat read 
mmc$sat_read_or_ write 
mmc$sat_ write 
mmc$scan_pft_for_free_or_ avail 


EXE 


mmm$page_fault processor 


DEFINED 
ON LINE 
5596 


6943 


6333 
6934 
1233 
4351 
4351 
4154 
4154 
1228 
4259 
19362 


REFERENCE ABBREVIATIONS 


mmm$page_ fault processor 


NOS/VE CYBIL/II 
DEFINED---~----+---+--+-+---REFERENCES 
ON LINE 

1963 9142 
10173/P 
2007 7891 
1961 2020 
9276/S 
$454 
10030/P 
10715/P 
12803/P 
2009 $1393 
2002 2009 
$462 
13364 
2003 10215 
2004 2021 
10306/S 
11983/S 
12942 
13180/S 
2008 $140 
1969 8782 
2010 2056 
2012 2016 
1999 10216/P 
2017 8357 
2011 2056 
2013 2016 
1971 2011 
1967 8775 
1968 8773 
1973 2012 
1997 2017 
1366 2010 
2000 2020 
1964 2007 
5658 8822 
5659 11897 
5659 11505 
5659 13391 
5658 8820 
1256 11786 
1254 11764 
1248 11762 
1249 11772 
4371 10836 
4372 10835 
5711 11375 
$712 11376 
5716 11378 
4376 9021 
4376 $027 
4376 $024 
4312 12732 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


ere eee REFERENCES 


56258 
5640 
7889 
$852 
12881 
7886 
7887 
7886 
2213 
S700/P 
1087/P 
3403/P 
8506 
8507 
8508 
8509 


oh oh 


Memodify, Azattribute, S:subscript, 


1.0 88102 


$704/P 


8469S 
8477 
8485 


8463 
8471 
8473 
8487 
8463 
8471 
8479 
8487 


11218 
11221 


7832 

$278/S 
10696/S 
12801 


1.0 89102 


$182 
10218/P 
11399 
9095/S 
9276/5 
9470/S 
10048/P 
10979/P 
12820/P 
$170 
2021 
$479 


2022 
10320/S 
11885/Ss 
12961 
13364 

$163 

8826 
10589 


12764 


8784 
8826 
8778 


8780 


8821 
8336 


8836 


12076 
12077 
12080 


SO66/P 
12070/P 
12733 


11399 
10109 


11681 
11681 
11681 


$716/P 


8470 
8478 
8486 


8464 
8472 
8480 
8488 
8464 
8472 
8480 
8488 


12612 
12603 


9097/S 

9300 
10696/5S 
12934 


9439/P 
10392/P 
11681 

sog98/s 

9277/8 

$471/S 
10150/P 
11095/P 
12934 
12224 

8423 
10331/S8S 


8828 
10847/S 
11987/S 
13044 


9171 
8336 
12763 


12879 


13041 


12424/P 
12436/P 


Memodify, Azattribute, 


11681 
10353 


12551 
13076 
13076 


10878/P 


8471 
8479 
8487 


8465 
8473 
8481 
8489 
8465 
8473 
8481 
8489 


9098/S 

9303 
10696/S 
13076 


9853 
10495 
11912 

9101/S 

9278/S 

$473/S 
10166/P 
11182/P 
13306/P 
12627 

8823 
10876 


8936 
10548/S 
12190 
13156/S 


$218 


89362 
12878 


12941 


&336 
8962 
8826 


8336 


10876 


13068 


13036/P 
12708/P 


S=subscript, 


13076 
10474 


13076 


108903/P 


9103/S 
9304/S 
11398 


I=1/0 


1988-08-21 


10740 


12147/P 


9173 
9312 
11681 


ref, Reread, 


13:33:34 
11913 12766 
12829/P 
8474 8475 
8482 8483 
84g0 8491 
8468 8469 
8476 8477 
8484 8485 
8492 
8468 8469 
8476 8477 
8484 8485 
8492 
9276/S 9276/S 
10050/P 10168/P 
12172 12207/S 

Wswrite, 


1989-08-21 13:33:34 

$872 10045/P 10055 10163/P 
11923/P 
13076 * 
$164 9204 9276/S $276/S 
3283 9416 $429 9437/P 
9475/S 9478/58 9489/S 9489/58 
10221/P 10696/S 10696/S 10696/S 
12207/S 12316/P 12585/P 12758 
12628 12641 
8936 9271 $2392 9395 
12099 12484 12847 12849/S 
8953 8954 9971 sg996 
10548/S 11953/S 11955/S 11981/S 
12198/S 12137/8S 12765 12880 
13158/S 13174/S 13176/S 13178/S 
12940 13044 
13045 
8962 
8336 8936 8362 8962 
8362 
12099 12884 
13063/P 

I:I/O ref, R®read, Wewrite, 


PAGE 7206 


Pzparameter 


PAGE 721 


P=parameter 


aaa eRe 


f 
| 


REFERENCES OF mmm$page_fault_p 


IDENTIFIER-------- Sse SS SS ee Sere D 
0 
mmc$scan_pft_free_avail_notmod 
mmc$scan_pft_write mod_pages 
mmc$segment_fault_processor_id 
mmc$sequence_ pointer 
mmc$server_iocb table_size 
mmc$ssk_none 
mmc$ssk_segment_number 
mmc$uer_ multiple pages_assigned 


mmc$uer_page_assigned 
mmc$uer page written 


mmeSassign_length_too_long 
mme$cannot_wait_for_memory 
mmeSdm_assign_active 
mme$invalid_length_requested 
mme$invalid_pva 
mme$S$invalid_pva_formed 
mme$S$invalid_ request 

mme$io_act ive_on_move_ page 
mme$S$iength_not_page_ size _mult 
mme$memory_not_avail_for_assign 
mmeSmodified source _page_ reject 
mme$no_free_ pages 

mme$Spage_ table full 

mme$pages_ already assigned 
mme$pva_not_on_page_boundary 
.mme$read_beyond_eoi 
mme$read_ write beyond _ms1 
mme$Sref_ to_unrecovered file 
mme$segment_not_assigned_ device 
mme$segment_not_pageable 
mmeS$source_ page_not_in_memory 
mme$temporary reject 
mme$unable_to_assign_contig mem 
mme$volume_unavai lable 
mme$wait so other tasks can_run 
mme$wired _or_ fixed segs illegal 
mme$wr ite beyond _eoi_no_append 
mmk$monitor_ base 


mmk$page_ fault 
mmp$advise_ request processor 
mmp$age_job_working set 
mmp$asid 

mmp$assign_asid 
mmp$assign_page_frame 


mmp$S$assign_page_to_ monitor 
mmp$aste_ pointer 

mmpSaste_ pointer_from_pft i 
mmp$ast i 


*KX 


REFERENCES OF mmm$page_fault_p 


IDENTIFIER--- +--+ - ee ete eee eee ee DB 
ie) 

mmupScheck queues 

mmp$c laim_pages_for_swapin 

mmp$convert _pva 


mmp$delete page _from_monitor 
mmp$detete pt_entry 


mmp$determine_ shared _queue_id 
mmp$determine_ shared _ queue_id 


mmp$dump_shared_ queue 
mmpSfetch_pfti_array_size 
mmp$find_next_pft i 
mmp$free_asid 
mmp$free_ memory _in_job_queues 
_mmp$get_avail_page_frame 
‘mmp$get_inhibit_io_status 
mmp$get_sdt_entry_p 

mmp$get_ sdt_entry_p 

mmp$get_ sdtx entry_p 

mmp$get_ sdtx_entry_p 
mmp$get_ verify _ asti_in_fde 
mmp$inc lude_p_reg_in_dump 
mmp$Sinitialize find next _pfti 
mmp$ link _page_frame_to_queue 
mmp$make_pt_entry 

_ mmp$page_ pull 
mmp$page_pull_hash_sva 
mmp$preset_real_memory 
_mmpS$process_assign_contig_mem 
mmp$process_assign_pages 
mmp$process_ assign pages reg 
mmp$process_cancel_reserve 
mmp$process_move_pages_request 
mmp$process_volume_unavai lable 
mmp$purge_all_cache_map_proc 
mmp$purge_all_cache_ proc 
‘mmp$purge_all_map_proc 


mmp$purge_al1l_page_map 
mmp$relink_page_ frame 


mmp$remove_page_from_job 
mmp$remove_page_from_jws 
smmp$remove_pages_from_jws 
mmp$remove_pages_ working set 
mmp$remove_ stale _ pages 
tamp$reset_find_next_pft i 


EX 


rocessor NOS/VE CYBIL/II 1.0 89102 
EFINED-----+--- eee eee ee REFERENCES 
N LINE 
4313 12732 12744 12939 
4313 12866 
6122 6148 11759 11770 
5671 5678 
3029 3032 
5761 5733 10994 
5762 5731 11068 
4383 8668 9891 10934 
11114 
4382 10934/P 10944/P 10967/P 
4383 8673 9891/P 9891 
11114 
1521 12095/P 12198/P 
1530 12329/P 
1518 12148/P 12530/P 
1565 12449/P 
1292 9005/P 9019/P 9023/P 
1488 12465/P 
1404 12893/P 
1568 12552/P 
1550 12454/p 
1515 12321/P 
1559 125S57/P 
1283 13256/P 
1280 12298/P 12616/P 13254/P 
1586 12724/P 
1553 12459/P 
1302 13094/P 
1308 12480/P 13097/P 
1491 9031/P 
1385 13051/P 
1410 13046/P 
1562 12543/P 
1452 12133/P 12515/P 
1583 12742/P 12795/P 
1540 12078/P 12138/P 12520/P 
1527 12338/P 
1509 12100/P 12485/P 
1437 13100/P 
1776 1616 1623 1630 
1699 1702 1705 
1724 1727 1734 
1655 11351 12001 
13001 13194 
10271 10402 11951 13154 
8707 8722 8938 
7652 8809 8935 
10659 10760 10938 10952 
13245 
13222 13265 
8725 8598 8744 9422 
8594 8606 9422 
8747 8759 
REFERENCE ABBREVIATIONS Msmodify, Azattribute, 


rocessor NOS/VE CYBIL/II 
EFINED-----++---+---e¢- - “REFERENCES 
N LINE 
765893 9223 
$251 9345 
8872 83976 
13067 
13285 13252 
7670 $105 
10165 
12584 
8767 8787 
&769 8773/M 
83826/M 
&8936/™M 
10573 10622 
71677 7683 
T6865 7704 
7707 9425 
$357 $517 
$sogs2 $110 
7714 7733 
7803 8892 
7805 7807/M 
7815 8893 
7817 7819/M 
7831 7845 
13428 13474 
7778 12311 
$228 $243 
7794 10713 
10776 11123 
7857 7905 
7319 9653 
12676 12896 
12026 12013 
12007 12022 
12383 12016 
12387 12670 
13375 11881 
7340 7931 
7942 8044 
7944 8615 
12319 
8609 9985 
$3120 7898 
10053 
10221 
11681 
13076 
10196 10228 
10088 10184 
9942 10073 
7S46 13054 
10428 10501 
79354 7377 


REFERENCE ABBREVIATIONS 


Memodify, 


1.0 89102 


$343 
9069 


13312 
$313 

10220 

12802 
8826 
&8775/M 
8826/M 
8936/M 


10389 
9976 


9372 


9515 


11368 


9403 
106396 
12818 

8936 

8778/M 

8826/M 

8962/M 


10489 
10063 


12882 
9553 
9014/M 
9695 
9015/M 


12602 
11595 
11681 
10954 


8639 


104396 

$437 
10163 
10715 
12316 


10603 
10491 


9988 


Azrattribute, 


11784 


10944 


11035 
10934 


9026/P 


1655 
1708 
1738 


11017 


13243 


S=subscript, 


12075 


9421 
10978 
13305 

8962 

8780/M 

8826/M 

8362/M 


11921 
12317 


12945 
$694 
§553/M 

13386 
9695/M 


12611 
11683 
13076 
11023 


$985 


9439 
10166 
10746 
12585 


12772 
11923 


Szsubscript, 


1989-08-21 13:33:34 PAGE 722 
10967 11033 11037 11081 
11081/P 11114/P 
10944 10967 11037 11081 
9028/P 12087/P 12432/P 12444/P 
1676 1690 1693 1696 
1711 1714 1717 1721 
1741 1747 
11069 11148 12265 12808 
1=I/O ref, R=read, Wewrite, P=tparameter 


12429 


9436 
11093 


8782/M 
8936/M 
89362/M 


13464 
9694/M 


13386/M 


13078 


12237 


10122. 


10030 
10168 
1093798 
12634 


1s1/O ref, 


1989-08-21 


12441 


10029 
11180 


&8784/M 
8336/M 
8962/M 


13464/M 


12282 


10208 


10045 
10173 
11085 
12642 


13:33:34 PAGE 723 
12713 13040 
10047 10149 
12315 12577 

8826/M 8826/M 
8936/M 8936/M 
8962/M 83962/M 
12835 13248 
10395 104396 
10048 10050 
10216 10218 
11182 11399 
12803 12820 


Reread, Wewrite, 


Pzparameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 724 


IDENTIFIER-------------+------DEFINED-~-----+-+-+-+---REFERENCES 


ON LINE 

mmp$reset_store_pft i 7981 10317 10460 

mmp$reset_ store pfti_reverse 7990 11902 

mmp$send_escaped_alloc_flag 9665 $726 9784 $810 

mmp$set_include_pages_in_dump 7939 8018 8834 8936 

mmp$store_pFft i 8024 10358 10361 10479 

mmp$store pfti_reverse 8033 11914 

mmp$sva_purge_ali_cache 8041 12666 

mmp$sva_purge_all_page_map 8636 12318 

mmp$sva_purge_one_page_map 8624 10122 10208 

mmp$trim_job_working set 10509 10557 11957 13160 

mmp$update_eoi 8660 8683 9891 10934 10944 10367 11037 11081 11114 

mmp$verify pva 8985 go35 9066 120706 12424 12436 12708 13036 13063 

mmp$volume_avai lable 13413 13424 

mmp$wr ite page _to_disk 9743 9926 10057 10177 12885 

mmp$xcheck_queues 13318 7663 $223 $343 9515 13371 

mmp$xtask_pva_to_sva 9054 9072 

mmtSactive_io_count 3324 3046 3313 

mmt$active_ segment _table 1873 8517 

mmtSactive segment _table_ entry 1858 1874 2071 2186 4176 5072 7654 7708 7783 
7796 7859 79348 8422 8422 8595 8727 8803 
8877 $O64 $253 $365 $752 $953 10098 10661 
107890 11132 11192 11268 12035 12393 12411 12683 
13016 13230 

mmt$aging statistics 2042 8510 

mmtS$asid_list_ptf_index 2074 2069 

mmt$assign_contig pass_ident 4312 4306 12900 

mmt$assign_contig passes 2174 8513 8513 

mmtS$assign_sub_reqcodes 4331 4320 

mmt$ast_ index 5033 4606 5087 S466 TO4a4G 7653 7835 &708 8712 
8749 8806 8884 

mmtS$async_work_list 2182 8518 8518 

mmtSattribute keyword 5533 5608 

mmt$bouffer descriptor 2182 7222 7236 7490 9754 10794 11140 

mmt$buffer descriptor_type 2202 2194 

mmt$eoi_ state 7173 7046 

mmt$gilobail_page_queue_ index 2020 4235 8233 

mmt$global_page queue_Tist 4235 8457 8457 

mmt$global_page_queue_list_ent 4225 4235 

mmt$hardware_ attribute set S662 5628 

mmt$hardware_ attributes 5650 5662 

mmt$image_file 8273 8267 

mmt$io_ identifier 2331 2668 7221 7235 7493 9747 $9955 _ 10100 10782 
11134 11280 12691 13010 

mmt$io_request_status 3247 3240 

mmt$io status 3239 3249 3310 

mmt$iocb_ index 4136 2338 2344 

mmt$ job_page_ queue_ index 2021 4236 5009 $268 $269 $286 $286 8377 9383 
$383 

mmt$ job_page queue_ list 4236 4561 $255 9358 

mmt$S$keypoint page _fault_status 4148 80s4 11281 

mmt$1ink 1921 1859 4166 4167 4222 10284 10284 10284 

mmt$ lock _ segment_status 5741 5537 

mmt$ locked page 4188 4172 


** + REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, Stsubscript, I=1/0 ref, Rtread, Wewrite, Ptparameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 725 
TLOENTIE LER sees sees ees ese e --DEFINED--------+----+---REFERENCES 
ON LINE 

mmt$make_ pt_entry_ status 4154 7798 10673 11197 12403 

mmt $max_sdt 5476 5480 

mmt $max_sdt x 5561 5565 

mmt$memory reserve request 5096 4554 

mmt$modified_bit_option 4351 4343 

mmt$move_pages_page_count 4158 4345 4346 12405 

mmt$page_age 4195 4175 4199 4199 

mmt$page_frame_ index 1327 1323 1823 5049 5051 5052 5053 5098 5099 
6452 6454 6456 7514 7671 7687 7691 7784 
7795 7860 7862 7955 7959 8024 8033 8316 
8594 gOs3 9121 $228 $258 $265 $371 $373 
9374 S376 9745 9775 99352 10089 10197 10281 
10443 10444 10445 10515 10516 10574 10578 10581 
10662 10663 10664 10665 10669 10671 10786 10788 
107392 10739 11131 11137 11141 11142 11183 11289 
11294 112935 11313 12034 12038 12044 12047 12052 
12053 12059 12060 12061 12062 12395 12408 12682 
12686 13014 13015 13234 13235 13294 13454 

mmt$page_frame_queue_id 2022 1867 4170 5050 &769 8769 8807 $122 $261 
93262 $343 10433 10583 

mmt$page_ frame_table 4181 - 8553 

mmt$page_ frame_table_entry 4165 4181 5070 7737 7869 9128 $229 $2593 $375 
$667 9764 $351 10097 10286 10447 ' 10822 10672 
11198 12046 12407 

mmt$page_ pull status 7312 7861 10666 10787 11136 11184 11296 112397 12048 
12696 13017 13231 

mmt$page_queue_list_entry 4221 8226 4236 $127 10278 10428 12697 13321 

mmt$page_selection_criteria 7790 7782 

mmt$page_ streaming statistics 4244 4270 

mmt$paging statistics 4266 8544 

mmt$paging statistics source 4273 4267 4268 4263 

mmt$pf statistics 4288 8545 

mmt$pFfti_array 8312 8306 

mmt$rb advise 4291 13002 

mmt$rb_assign_contig memory 4302 12677 

mmt$rb_assign_pages 4317 12008 12027 12354 

mmt$rib_move_pages 4337 12388 

mmt$reassignable_page_ frames 4356 8556 

mmt$rma_list_entry 2216 2211 2699 2714 

mmt$rma_list_ index 2213 2211 

mmt$rma_list_length 2214 21383 

mmt$sdtx_ stream_data 5544 5540 

mmt$segment_access condition 1261 6149 11301 

mmt$segment_access rights 4371 5536 

mmt$segment_ access state 5711 $531 

mmt$segment_access type 4376 89387 

mmt$segment_descr iptor 5463 5473 5477 7805 8002 8336 8769 8738 8878 
83994 9062 $537 8676 11303 12054 12397 12414 
12701 13008 13431 13453 

mmt$segment_ descriptor _extended 5529 5558 5562 7817 7820 8574 8739 8851 &88&79 
8833 &3g5 $015 $063 $677 s635., 8769 10781 
10884 11306 12055 12398 12415 12702 13009 13380 
13386 


*** REFERENCE ABBREVIATIONS : Mtmodify, Asattribute, S=ssubscript, I:I1/0 ref, Rsread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER--------------+----- 


mmt$segment_inhner itance 
mmt$segment_ pointer kind 
mmt$segment_reservation_state 
mmt$server_iocb_entry 
mmt$server_state 
mmt$shadow_info 
mmt$shadow_reference_info 
mmt$shadow_ segment _ kind 
mmt$software_ attribute set 
mmt$software attributes 
mmt$sub_ reqcodes 
mmtS$update_eoi_reason 
mmt$write page _to_disk_status 
mmt$xcb_ page _wait_info 
mmv$a_divisor 


mmav$a_muit 


mmv$advise_in_aio_ limit 
mmv$age_interval_ ceiling 
mmv$S$age_interval_filoor 
mmv$aggressive_aging_ level 
mmv$aggressive_aging level_2 
mmv$aging algorithm 
mmv$aging statistics 


‘mmv$aio_limit 

mmv$aio_timit count 
mmv$assign_ contig reject 
mmv$assign_cont iguous_pass_cnt 
mmv$assign_multipile_ pages 
mmvSast_p 


mmv$async_work 


mmv$check_queues 
mmv$gpqi 


mmv$ image_file 

mmv$ jmtr_ escaped _allocate 
mmv$ jws_ queue _age_interval 
mmv$ last _active_ shared queue 
mmv$ last_segment_accessed 
mmv$lost_escaped_allocate 
mmv$max_pages_no_file 
mmv$max_ working set_size 
mmv$maxws_ aio _count 


xeX 


REFERENCES OF 


IDENTIFIER----------- wee eee eee 


mnv$Smaxws aio slowdown 
mmv$maxws aio_threshold 
mmv$memory_ wait _queue 
mmv$min_avail pages 
mmv$multi_page_ write 
mmv$multiple caches 
mmvS$multiple page maps 


mmv$no_memory buffering 
mmv$page_ streaming prestream 
_mmv$page_streaming random_limi 
mmv$page_ streaming reads 
mmv$page_streaming threshold 
mmv$pages_for_overallocation 
mmv$pages_ per _new_page_ fault 
mmv$pages_to_dump_p 

mmav$paging statistics 


mmv$pf_ statistics 
mmv$pf_sva_array 
-mmv$pFft_p 


mmv$pfti_array_p 


eek 


mmm$page_fault_ processor 


DEFINED 
ON LIWE 
5579 
5671 
5751 
3036 
34568 
5726 
5774 
5761 
5664 
5658 
3325 
4382 
3739 
5785 
8703 


8702 


8505 
8506 
8507 
8508 
8509 
8263 
8510 


8511 
8512 
8514 
8S13 
8515 
8517 


8518 


13316 
8457 


8267 
8522 
8286 
8293 
8523 
8524 
8525 
8527 
8528 


REFERENCE ABBREVIATIONS 


mmm$page_fault_ processor 


DEFINED 
ON LINE 
85293 
8530 
8531 
8532 
8535 
8533 
8534 


8536 
8538 
t 8542 
8541 
8538 
6543 
8537 
&300 
8544 


8545 
8546 
8553 


8306 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

11964 13164 
11961 13161 
9217 9219/P 
9037 9276 
10057/P 10177/P 
7930 8043 
7930 8614 
10496 12319 
10046 10164 
11420 11507 
11477 

11459 11532 
11554 

10956 10957 
11008 11013 
13440/M 13458 
11451/M 11452 
11541/M 11542 
11615/M 11616 
11662/M 11662 
11836/M 11836 
13118/M 13118 
11934/M 11934 
11935 11936/M 
7885 8598/P 
9311 $327/M 
$401 9405 
9782 9812 
9873 9974/S 
10209/M 10210/M 
10378/M 10466 
11076/S 11077/S 
11219/S 11398 
11846/P 11870 
12289/S 12290 
12764 12765 
12835/P 12836/S 
12854/M 12855/M 
12882/P 12884/P 
12940 12941 
12961 12965/P 
7681 7681 
7637 7697/S 
7965 7965 
7971 7971 
7994 7895/M 
8036 8037/M 
8972/S 9372 
9972 9872 
9976/S 9976 
9988/S 9988 
9988 9988 
10063/S 10063 

Memodify, 


1.0 89102 
REFERENCES 

§533 5636 
5675 
5534 
2676 3033 
3038 
5538 
5353 
5730 
5535 5630 
5664 
3043 3315 
8663 10806 
8428 $749 99584 
5339 
8598 8719 8719 
13243 
8598 8598 8719 
9422 9422 13243 
13133 
10311 
10312 
10251 10252 11994 
10248 10609 10824 
10283 10451 11944 
3920/M 9921 9923/M 
10170/M 10171 10179/M 
10363/M 10363 10333/M 
11971 13168 
11975/M 11975 13170/M 
12827/M 12827 
12734/M 12734 12736/M 
11007 
7839 7839 7840 
8933 8951 9422 
10717/M 10718/M 10719/M 
12606/M 
7662 9223 9343 
9095 9037 9098 
9231 9232 $233/M 
8276 $276 9276 
$278 9298 9304 
9337/M 9470 9471/M 
10590 10592 10594 
10696 10696 12207 
1084S 10849 11200 
9718/M $718 
11965 13165 
10589 
10883/M 12118/M 12498/M 
9722/M 9722 
10875 12111 12491 
10529 10532 11956 
11962/M 11962 13162/M 

Memodify, Azattribute, 


9510 

9278 
12885/P 
12663 

8626 
12663 
102193 
11555 


11546 


11014 


11471/M 
11550/M 
11629/M 
11737/M 
11855/M 
13125/M 


11937/M 


Asattribute, 


10099 
8736 


&8736 
13243 


11994 
11994 
13147 

$923 
10180 
10393 


13170 
12736 


8598 
13243 
11223/M 


9515 
9098 
9235/S 
3276 
9323/M 
9473/S 
10594 
12207 
11207 


12197 
13162 


S=subscript, 


9510 
10696 


12666 
8638 


11547 


11472 
11551 
11629 
11737 
11855 
13125 


11938/M 
$130 
$335 
9422/P 
$852 
$991 

10217 

10602 

11094 

11801 

11912 

12549 

12767/S 

12847 

12877 

12829 

12943 

13250/S 
7694 
7698 
7966 


10063 


Stsubscript, 


12705 
8755 


8736 


13186 
12209 


10066/M 
10257/M 
11994/M 


12891/M 
8739 


11224/M 


13159 


1=1/0 


$512/P 


s985 


11549 


11482/M 
11559/M 
11635/M 
11744/M 
11924/M 
13132/M 


$153/M 
§336/S 
9422 
9853 
10016 
10325 
10708 
11111/S 
11804/P 
11913 
12757 
12767 
12848/P 
12878 
123293 
12944/S 
13335 
7695 
7962/M 
7967/M 
79886/M 
8027/M 
8038/M 
$372 
33876 
$376 
$988 
10063 
100623 


1989-08-21 13:33:34 
8338 8938 9422 
8755 8755 8938 
13186 
13075 13075 13186 
10067 10068/M 10068 
10257 1O301/M 10301 
11994 13186/M 13186 
12891 
8925 8333 8933 
11225/M 12604/M 12605/M 
13357 
9103 9145 9188 
8$238/M $238 $276 
93277 9277 $278 
9331 $332/M $333/M 
9478/M $489/M 94893 
10696 10696 10696 
ref, R:=read, W-write, 

1989-08-21 13:33:34 
11827/P 
10122 10208 10395 
11557 
11483 11528/™M 115283 
11560 11612/M 11613 
11635 11652/M 11652 
11744 11795/M 11795 
119825 13109/M 13109 
13132 
9158/M 91936/M §$235/M 
8$336/M 8$338/M 9396/P 
$8465 9473/M 9475/M 
$854 $871 $8872 
10108 10202/S 10208/P 
10341 10371/M 10373/M 
10942/S 11025/S 11026 
11112 11181 11208 
11813 11816/P 11840 
12171 12223 12284/S 
12758 12758 12763 
12769/P 12801 12818 
12850/M 12852 12853/M 
12879 12880 12881 
12934 12934 12935 
12944 12945/P 12959/P 
13338 13342 
7695 7696/M 7696 
79362 7963 7963/S 
7367 7368 7968/S 
7993/M 79833 7994/M 
8028/M 86028 8036/M 
§$972/M 8972 $372 
9372 $9372/S 9872 
99376/M $376 9976 
9988/M $988 ss88 
$988 9988/s sséés 
10063/M 10063 10063 
10317/M 10317/M 10317/M 


I2sI/O ref, 


Rzs=read, W:ewrite, 


PAGE 


726 


P=>parameter 


PAGE 727 


P=parameter 


REFERENCES OF 


mmm$page_fault processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 728 
TOENT LF ERS + S65 see Ree Me eis Seis DEF ENED S68 cece s's ee es REFERENCES 
ON LINE 
10358/S 10358/M 10358/M 10358 10361/S 10361/M 10361/M 10361 
10389 10389 10460/M 10460/M 10460/M 10473/58 10479/M 10473/M 
104793 10489 104893 11902/M 11902 11902/M 11902 11902/M 
11802 11814/M 11914 11914/M 11914 11914/S8 11814/M 11921 
11821 12317 12317 12317/M 12317 12317 12317/S8 12317 
12317 12317 12317 
mmv$pt_length 8554 8552 93623 S635 
mmv$pt_p é555 7880 $142 $173 9174 9182 9$434/M 9551 $632 
9632 9652/M 8654/M $848 $851 S867 $8790 98374/M 
s975/M $395 10119 10202 10344 10345/M 10468 10469/M 
10551 10942/M 11025/M 11076/M 11077/M 11171/M 11219/M 11399 
11681 11911 12166 12220 12284/M 12289/M 12314/M 12547 
12583 12615/M 12651/M 12652/M 12767 12836/M 12944 13076 
13250/M 13438 
mmv$read_tu_execute 8557 11513 
mmv$read_tu_read write 8558 11511 
mmv$reassignable_ page frames 8556 7524 90938 9141/M $141 9143/M $143 9167/M 9167 
9172/M 9172 91806 $186/M 8186 §$239/M 9239 9$240/™M 
§240 9241 $276 9279 $295/M $295 9$442/M 9442 
9450/M $450 9491/M $431 9494/M 9494 8506 10054 
10054 10174 10174 10247 10247 10609 10682 10696 
10824 11007 119394 11994 12259 12260 13075 13075 
13186 13186 
mmv$refs to _unrec_df_ file inhib &559 11377/M 11377 
mmv$refs to _unrec_df_ file term 8560 11380/M 11380 
mmv$reserved page_count 8561 12208 12345/M 12345 12365/M 12365 
mmv$tables_ initialized 8577 11320 12066 13023 T3355 
mmv$t ime_to_cal1_mem_mgr 8330 10255/M 10720/M 11226/M 11994/M 12607/M 13186/M 
mmv$volume_unavai 1_dequeued 13416 13421/M 13421 
mmv$volume_unavai 1. queued 13382 13394/M 13394 
mmv$volume_ wait queue 8580 13383/P 13419 13419 13420/P 
mmv$write aged_out pages 8581 10055 10175 
mmv$write page statistics 8428 9786/M $786 8$797/M 97397 8$814/M 9814 9918/M $918 
modified 12404 12568/M 12570/M 12572/M 12652 
modified bit option 4343 12567 12569 
modified pages_removed 10435 10481/P 10494/M 
modified pages removed 10877 10603/P 
modified queue id $943 $371 99336 10053/P 10055 
monitor condition _register 5901 103806 
monitor fault 11285 11759/M 11760 11767/P 11770/M 11771 11781/P 11784/M 11785 
11788/P 
monitor lock 79034 7387/P 7449/P 8922/P 10005/P 10128/P 11053/P 12884/P 
move_ page 12538 12538 12661 
moved modified page count 4345 12472/M 12560/M 12560 
mpt_ status 10673 10713/P 10714 10716 
mpt status 11197 11216/P 11218 11221 
mpt status 12403 12602/P 12603 12611/P 12672 
mtc$ job fixed segment 4388 7282/8 7344 7385 83922 9686/S 10005 10128 10327 
11053 12884 
mtp$clear_inter lock 7459 7449 7473 
mtp$cst_p 8052 83939 9068 13362 
mtpSerror_ stop 7415 7890 7901 8600 8896 8927 8971 9165 9175 
$184 9301 9422 $592 $625 $641 $721 $913 
*** REFERENCE ABBREVIATIONS Mzemodify, Atattribute, S=subscript, I:1/0 ref, Reread, Wewrite, Pzparameter 
c 
REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 729 
TDENTIFIER<- 9s sees ee ee ee mee cele DEFINED----rr- re ert ene REFERENCES 
ON LINE 
10226 10698 10733 10890 10976 11120 11173 112293 
11399 11399 11519 11664 11681 11681 11802 11814 
11841 11871 11883 12019 12182 12296 12534 12613 
12630 13076 13076 13258 13302 13333 13336 13339 
13345 
mtp$set_inter lock 7419 7387 7440 8922 10005 10128 11053 12884 
mtp$set status _abnormal 8064 8071 g005 $019 $9023 $026 9028 9031 12078 
12081 12087 12095 12100 12133 12138 12142 12148 
12198 12298 12321 12329 12338 12432 12444 12449 
12454 12489 12465 12480 12485 12515 12520 12524 
12530 12543 12552 12557 12616 12724 12742 12795 
12893 13046 13051 130394 130397 13100 13254 13256 
mtp$step_unstep_ system 8086 13397 
mtt$monitor inter lock 7180 7034 7419 7459 
mtv$csto 8058 8054 &8399 9068 13362 13459 13459 13460 13461 
mtv$monitor_segment table 8335 13239 13241 
mtv$sys_core_ init complete 8343 9020 
multiple page req $748 $838 
multiple pages written_to_disk 2051 8920/M 9321 F 
nat$received message _ descriptor 5801 5794 5803 
nat$received_ message_list 5733 §321 
new 4276 11652/M 11652 11744/M 11744 11855/M 11855 13109/M 13109 
new _pages_assigned 4862 11648/M 11649 11650/M 11651 11740/M 11741 11742/M 11743 
11851/M 11852 11853/M 11854 13105/M 13106 13107/M 13108 
next cyclic _aging time 5146 10450/M 
next _ i 8547 11935 11936/M 
next pfti $373 9413/M 9456 
next pfti 10445 10467/M 10483 
next pFfti 10578 10602/M 10604 
next pfti 10799 11020/M 11021 11021 11025/S8 11026/M 11026/5 11027 11074/M 
11075 11075 11076/S 11077/8 11078/M 11078/S 11094/M 11096 
111098/M 11110 11110 11111/S 11112/M 11112/8 
next pfti 11142 11181/M 11183 
next pfti 12044 12263/M 12271 12271 12284/8S 12289/S 12290/M 12290/S 
next rma $540 9572/M 9574 9575/M 9581 9582/M 9585/M 3585 $589/M 
3589 9530 $594/M s5399 9599 $603 $613 9617 
nic$cc_connect_confirm $833 5824 
nic$cc_connect_request 5832 5822 
nic$cc_expedited_ data 5838 5824 
nic$cc_max_pdu_kind 5840 5843 
nic$channel_connect ion_pdu 5856 5808 
nic$channe inet_pdu 5856 5810 
nit$cce_pdu_kind 5843 §821 
nit$cc_seq#_or_connect_time 5820 S809 
nit$cc_sequence_number 5846 5825 
nit$device_ identifier 5853 5804 
nit$pdu_type S856 5807 
nominal page_fault 11286 11408/M 11448/M 11461/M 11503 
normal 3332 8063S/M 8898/M SO005/M 9013/M 9023/M 9026/M $028/M 9031/M 
S$O67 $898 10866 11164 12064/M 12071 12078/M 12081/M 
12087/M 12095/M 12100/M 12133/M 12138/M 12142/M 12148/M 121398/M 
12298/M 12321/M 12328/M 12338/M 12422/M 12425 12432/M 12437 
KE REFERENCE ABBREVIATIONS Memodify, Atattribute, S:subscript, I=1/0 ref, Reread, W=write, Psparameter 


**ex 


REFERENCE ABBREVIATIONS 


Memodify, 


Asattribute, 


Sesubscript, 


IsI/O ref, 


Reread, Wewrite, 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.60 889102 1889-08-21 13:33:34 PAGE 730 
IDENTIE TER SS S¢:c Sos ose pe eee a i DEF INED@ = '=3's<<2725 8h “REFERENCES 
ON LINE 
12444/M 12449/M 12454/M 12459/M 12465/M 12480/M 12485/M 12515/M 
12520/M 12524/M 12530/M 12543/M 12552/M 12557/M 12616/M 12707/M 
12709 12724/M 12742/M 12795/M 12893/M 13021/M 13037 13046/M 
13051/M 13064 13094/M 13087/M 13100/M 13237/M 13254/M 13256/M 
13296/M 
now 4357 7824 9099 9141/M $141 9172/M 9172 $180 9240/M 
$240 9241 S276 $279 §$295/M 9295 9450/M $450 
9491/M $491 9506 10054 10174 10247 106093 10682 
10696 10824 11007 11994 12289 12260 13075 13075 
13186 
nulijl_pva 8500 8930 
null sva 7928 7933 7934 
nulil_sva 8501 $314 9428 
nulil_sva 8612 8617 
nulil_sva 93942 9985 
nuli_sva 10271 10395 
nuli_sva 10428 10496 
nuli_utp 11287 11999 
num pf recs 8590 8548 11936 
number _of pages _ moved 4346 12473/M 12654/M 12654 12656 
number of pages to_assign 10662 10682 106893 
‘number_of pages _to_move 12405 12475/M 12479 12491 12500/P 12504/P 12505 12540 12656 
off 11288 11356/M 11357 11358/M 11359 11362/M 11363 11364/M 11365 
offset 2090 8920/M 9555/M 9556/M 9556 $649 9698/P 9835 $840 
9846/M 9860 8861/M 9865/M 9878 9893/P 9895/P 10016 
10028 10148 10329 10755/M 10755 10811/M 10811 10834 
10848 10877/P 10886/P 10888/P 10899/P 10918 108138 10920 
10930/P 10834/P 10938 10944/P 10964/P 10965/P 10967/P 10995 
11004 11004 11012 11028/M 11028 11037/P 11050 11054/M 
11081/P 11085 11114/P 11200 11207 11390 11392 11540 
11574 11680/M 11754 11865 11901/M 11905 11905 11906/M 
11906 12094 12106/M 12106 12113 12119/P 12122/P 12123 
12181/M 12181 12243/M 12243 12286/M 12286 12302/M 12302 
12458 12458 12463 12464 12477/M 12477 12479 12493 
124939/P 12503/P 12505 12657/M 12657 12658/M 12658 12717/M 
12717 12727/M 12727 13054/P 13141/™M 13141 13238/M 13262/M 
13262 13436/M 
offset 2161 9004 9555 11328/P 11336/M 11336 11356. 11358 11362 
11364 13465/P 13466/P 13467/P 
offset 7335 7T340/M 7347/M 7350 
offset 7378 7385/M 7385/M 7385 
offset 8662 8665 8666 8674 8677 
offset 8852 8855 
offset 8872 8922/M 8322/M 8322 
offset 9665 9698 
offset $9743 $891 $891 9891 9891 
offset 9763 8840/M 9841 9857/M 9861 
offset 9942 10005/M 190005/M 10005 
offset 10088 10128/M 10128/M 10128 
offset 10271 10327/M 1O327/M 10327 
offset 10776 10877 108993 
offset 10776 10934 109334 10934 10934 10944 10944 10944 10944 
**x REFERENCE ABBREVIATIONS Mzmodify, Azattribute, S=subscript, I1:21/0 ref, Reread, Wewrite, Ptparameter 
REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 731 
EOENTIF IER «26 ose 2 6 sees nes = DER LNE DSc 62 ee sao ~-°-°REFERENCES 
ON LINE 
10967 10967 10967 10967 11037 11037 11037 11037 
11081 11081 11081 11081 11174 11114 11114 11114 
offset 10776 11053/M 11053/M 11053 
offset 12026 12146 
offset 12387 12528 
offset 12676 12884/M 12884/M 12884 
offset 13432 13434 13434 13436 
old_assign_active S672 9697/M $699 
original _bkw_link 9374 9385/M 9482 
osc$aging_interval_maximum 5211 5214 
osc$base_exception 384 390 1044 1046 6566 
osc$call_instruction 6036 6044 
osc$data_read 6035 6044 
osc$free running clock maximum 2031 2028 
esc$invalid_ ring 2107 2147 
oscS$keypoint base 6566 6568 6572 6576 6579 6583 6587 6591 6594 
6598 6602 6606 6610 6613 6616 6620 6623 
6627 6630 6635 
“Ose$kpt_pva_segment 6447 11327 
osc$max_channel_number 3882 3885 
osc$max_ fault contents 6161 6155 
»sc$max_idie_ count 5268 5276 
osc$max_integer 3471 3476 3477 
osc$max_kpt_pages 6446 6452 6454 6456 6492 
osc$max_name_size 2402 2406 24093 
osc$max_mumber_of_ processors 5253 4469 6481 6482 7599 
isc$max_page_frames 1931 1860 1827 4223 42293 4357 4358 43593 4360 
4601 4602 5008 $010 6942 8313 8314 8315 
osc$max_page_size 3232 3228 
osc$max_page_tabie entries 1932 1935 
osc$max_ring 2106 2147 2148 
osc$max_segment_length 2130 2183 5541 5572 12463 12464 
vsc$max_ status condit ion_code 3269 3265 3281 
osc$max_ status condition_number 8074 8065 
osc$max_string size 3285 3288 3291 3296 
osc$max_ tasks 2260 2257 
osc$maximum_offset 2129 2130 2150 2150 2151 
osc$maximum_processor_id 6061 6057 
osc$maximum_processor_number 5245 §240 
‘2sc$maximum_processors 52493 5245 §253 
2sc$maximum_segment 2128 2149 
osc$min_ecec 383 384 
oscS$min_integer 3470 3474 3475 
osc$min_page_size 3231 3228 
osc$min_ring 2105 2148 
osc$non_executable 5510 8772 8826 8936 8362 11510 
iasc$non_readabie 5513 9021 
wsc$non_writable 5516 8005 8772 8826 8834 83936 8336 83862 $025 
11510 
osc$pr_base_ constant 4405 7556 7563 7584 7624 7727 77298 $706 8706 
$719 $719 12770 12770 12774 12774 12882 12882 
12886 12886 12946 12946 
esc$pr_process_interval_timer 4431 13356 13368 


P=parameter 


REFERENCES OF mmm$page_fault_ processor NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 732 


IDENTIFIER<-------+---- PS eee ses DEFINED-------------+---REFERENCES 
ON LINE 

osc$purge_all_cache 4446 7333 

esc$purge_all_page_seg_map 4455 79334 8617. 8930 $985 10395 10496 

esc$pva_purge_all_page seg map 4453 13310 

osc$pva_purge_ segment_cache 4448 13240 

osc$sva_purge_alil_cache 4445 8046 12666 

osc$sva_purge_all_page_map 4451 8641 12319 

osc$sva_purge_ one _page_ map 4450 86295 10122 10208 

osc$task_time_slice_maximum 4761 4764 

osc$trap_exception 5865 10906 

osc$traps_ enabled 5379 10905 11066 13387 

osc$vl_invalid_entry 5491 8895 9018 9696 

esc$wait 3453 12322 

osk$m 1853 $133 9134 9135 $309 9415 9416 10328 103293 
10331 10333 10398 10389 11383 11355 11357 11359 
11361 11363 11365 11706 11707 11708 12001 

osk$monitor multiplier 1852 11351 12001 

osk$mtr 1817 11351 12001 

osk$per formance 1818 9133 9134 9135 93098 3415 9416 10328 10329 
10331 10333 10398 103939 11353 11355 11357 11359 
11361 11363 11365 11706 11707 11708 

osk$system_ciass 1828 1812 1813 1814 1815 1816 1817 1818 

esp$process keypoint _page_fault 8092 11328 

ost$aging_interval 5214 5143 5144 

ostS$asid 20393 1865 2070 2089 4545 5074 5085 5086 5497 
5634 76S2 T1707 7768 8709 8726 8731 8748 
8752 8802 8883 9364 

ost$binary_unique_name 3140 3132 7036 

est$byte count 2083 7491 

est$class_15_keypoint 6542 6499 

ost$cp_time 4823 4791 4836 5338 

ost$cp_time_value 4821 4587 4824 4825 5138 5139 §351 11271 13012 

ost$cpu_element_id $237 4500 

ost$cpu_idie statistics 5271 4503 

ost$cpu_memory_port_mask 5239 4476 

ost$cpu_running or_stepped 5289 5286 5286 

est$cpu_state 5284 4485 

ost$cpu_state_reason 5295 4506 

ost$cpu_state_ tabie 4472 44695 8052 8800 8874 8391 SO60 10242 10778 
11254 12008 12028 12355 12388 12678 13003 13350 

ost$cs_ lock 4086 5319 

ost$cst_trace control 6344 4504 

ost$date_time 3481 2632 6544 

ost$debug code 6035 6023 ‘ 

ost$debug_ list 6031 5935 

ost$debug_list_entry 6022 6031 

ost$debug_mask 6041 5934 

ost$exchange package 5884 5306 

ost$execute_ privilege 5510 5492 5505 

ost$execut ion_control block S305 4486 5331 7804 7816 8111 8123 8161 9533 
S678 9774 13376 13455 

ost$external_interrupt_ request 6332 4492 

ost$family name 5224 5219 

est$flags 5941 5891 


* RX REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, Stsubscript, I:1/0 ref, Rtread, W:write, P=parameter 


REFERENCES OF mmm$page_ fault processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 733 
IDENTIFIER---++ eee ee en ee eee eee -DEFINED----- eee eee -“---REFERENCES 
ON LINE 

ost$frame_descriptor 5999 6014 

ost$free running clock 2028 1864 4556 4557 4s58 4ss9g 4533 4603 4604 
4605 4701 4713 $137 5146 $337 7082 7317 

ost$global_task_id 2251 2244 2337 2660 4481 4550 4579 5133 5316 
5317 6073 6248 7054 7135 8102 8116 8122 
8137 8147 &154 8160 8361 8361 9125 $378 
13417 

ost$halfword 2166 5257 

eost$idie type §280 5275 

ost$key_ lock 2136 54398 5619 

ost$key_lock_value 2142 2139 5958 5960 

ost$keypoint 6533 6543 

ost$keypoint_ class 5973 5904 5975 

ost$keypoint_environment 6524 6470 

ost$keypoint mask 59375 5307 64693 6469 6469 6469 

ost$keypoint_muiltipro_option 6528 6471 

est$ logical processor id 5240 4477 

ost$minimum_save_area 6009 5896 5984 6142 

ost$monitor_ condition 5860 5867 

ost$monitor conditions 5867 5897 5901 5989 6217 6231 

ost$monitor fault 6138 6115 8148 11285 

ost$monitor_ fault _ contents 6155 6151 

ost$name 24093 2368 2398 4065 §183 $222 5224 5365 §423 
6180 

ost$non_negative_integers 3476 2615 

ost$p_register S956 S885 6010 6209 6215 

ost$page_id 1937 1947 

ost$page_size 3228 3209 8582 

ost$page table 1951 8555 9547 

ost$page_ table_entry 1942 1951 5071 7870 $542 $765 9958 10101 190200 
10517 12050 12409 

ost$page_tablie_ index 1835 1951 4173 

ost$paging statistics 4859 4837 5346 

ost$parcel 2168 44ag8 4499 

ost$physical channel_number 3885 3827 

ost$pre_ processed for_reconfig 6340 4507 

ost$processor_element_id 5256 5237 

ost$processor_element_number 5265 5258 

ost$processor_id 6057 5309 6051 

ostS$processor_id_set 6051 5308 6483 

est$processor_keypoint_ control 6450 6485 

ost$processor_model_number 3158 3142 3494 5259 

ost$processor_seriai_number 3236 3141 3495 5260 

ost$pva 2158 5929 5947 5961 6139 6232 8393 11261 11287 
11287 

ost$read_ privilege 5513 5493 S506 

ost$real_memory_ address 2081 2478 2579 3694 4437 

ost$register_ number 5352 5926 $995 6003 6004 6005 

ost$ring 2147 21589 5495 5436 55306 5610 5611 5946 

ost$ring!_terminat ion_reason 6063 5342 

ost$segment 2149 2160 2242 5613 5732 §324 6025 7053 7270 
7805 7817 8000 8523 87387 88s&5 8396 13381 

ost$segment_access_ control 5503 5632 


*** REFERENCE ABBREVIATIONS : Memodify, Atattribute, Stsubscript, I21/0 ref, Reread, Wewrite, Ptparameter 


REFERENCES OF 


IDENTIFIER------------+-------- 


ost$segment_descriptor 
ost$segment_length 


ostS$segment_offset 


ostS$signature_ lock 
ost$stack_frame_save_area 
ost$state tables 
ost$status 

ost$status_ condition 
ost$status_ condition _code 
ost$string 

ost$string_size 
ost$system_flag 
ost$system_virtual_address 


ost$task_index 
‘ostS$task_time_slice 
eost$top_of stack pointer 
ost$trap_ enable 

ost$user condition 
ost$user_ conditions 
-ost$user_identification 
ost$user name 

ost$valid_ relative pointer 
ost$valid_ring 
ost$virtual_machine_identifier 
ost$wait 

ost$word 

ost$write privilege 

ost$x register 

osv$180_ memory _ limits 
esv$cpus_logically_on 


osv$page_ size 


x*es 


REFERENCES OF 
IDENTIFIER-------------------- 


osv$time_to_check_asyn 
out _ length 
-eut pva 


DvD Vupe 


ip 
p register 


page _ aging _ interval 
page_count 
page_count 
- page count 
page _count 


page_count 
page_count 
page_count 


page_count 


. page_count 
page_count 
page _count 
page_count 
-page_fault_count 
page _ faults tu 
page_in_count 


page_in_count 


page _ status 
page _ status 
page status 
page streaming 


page_streaming available page 
“page _sva 

page wait info 

page _written_to_disk 

,pageid 


RE 


mmm$page_fault_ processor 


DEFINED---------- -eecee 


ON LINE 
5430 
2153 


2150 


4087 
5983 
4469 
3253 
3277 
3281 
3294 
3288 
6264 
2088 


REFERENCE ABBREVIATIONS 


mmm$page_ fault processor 


DEFINED 
ON LINE 


&356 
4235 
4294 


8873 
8386 
9055 
11263 


13223 
13286 
5885 


5143 


REFERENCE ABBREVIATIONS 


Cf] 


=e ree eecnrnewee wee oe oe 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


13304 
10256/M 
13035 
13036/P 


88390 
9001 
9066/P 
11368/P 
11880 
13238 
13297 
96093 
11356 
10299 
9886/M 
11086/M 
7876/M 
10808/M 
10952/P 
11105/P 
11148/P 
11399/M 
11373/M 
11608 
11634 
11681/P 
11743 
11852 
12819/M 
12966 
13076/M 
13055/P 
13244 
13299 
11725/M 
11541/M 
11625/M 
13128/M 
13076/P 
13117 
13141 
10880/M 
12112/M 
12492/M 
11451/M 
11541/M 
11615/M 
11601/M 
10688/M 
11805/M 
$923/M 
$632 


Memodify, 


1.0 89102 


REFERENCES 

5464 

3041 3308 
5617 5639 
7780 7947 
2090 2161 
7211 7219 
8852 11283 
2374 

6017 6175 
8058 

5626 6210 
3243 3312 
3256 3277 
3257 

3295 

6260 

2185 2196 
8041 8501 
9056 9536 
11130 11191 
12399 12416 
2252 4206 
4750 

5936 

5893 6206 
5877 

5895 5899 
5132 

5218 

5335 5336 
5936 8117 
5887 5889 
3311 4325 
2515 

5494 5507 
5926 5995 
9575 8576 
7556 7563 
9719 9719 
12886 12886 
7884 8666 
9651 9845 
9891 9891 
10811 10920 
10944 10964/P 
11037 11037 
11081 11081 
11200 11207 
11911 12091 
12123 12170 
12458 12458 
12583 12657 
12912 13071 

Mzmodi fy, 


1.09 89102 


13307 

10721/M 
13054/P 
13040/P 


8920 


gso06g/P 
11766 


13241/S 
13307 
9010 
11358 
10300 
109363/M 


7879 /M 
10851/M 
10963 


11150 
11399/M 
11384/M 
11609 
11635 
11682 
11744 
11854 
12929 
12971/M 
13076/M 
13071/M 


11725 
11542 
11626 
131293 
13077 
13118 


10886/P 
12115/M 
12495/M 
11452 
11542 
11616 
11643 
10713/P 
11817/M 
$9323 
3632 


4295 
5641 
8519 
2243 
7233 
11309 


3333 


4178 
8501 
$761 
11307 
12418 
4207 


§987 


7059 


6011 


$590 
7583 
12770 
12946 
8674 
$851 
$891 
10922 
10967 
11037 
11114/P 
11389 
120382 
12181 
12475 
12658 
13072 


Azattribute, 


13439 
11227/M 


13054/P 


11773 
13252/P 


10900 
13464/P 
10305 
11153/M 


10922/M 
11017/P 


11681/M 
11399/P 
11613 
11649 
11684/P 
11792 
11855 
12929 
12974 


13078/P 


11726/M 


11627/M 
13130/M 
13079/P 
13122 


10888/P 
12120/P 
12501/P 
11471/M 
11550/M 
11824/M 
11646/M 
10718 

11847/M 


9648/M 


Azattribute, 


4297 
5644 
8519 
3040 
7245 
12051 


71779 
8550 
$770 
11308 
12703 
4511 


6016 


7062 


9594 

7623 
12770 
12946 

8677 

8860 

9919 
10834 
10967 
11051 
11114 
11399 
12094 
12222 
12479 
12715 
13076 


S=subscript, 


13466/P 
11994/M 


11787 


10905 
13465/P 
10457 


10923 . 
11019 


11681/M 
11426 
11616 
11651 
11686/M 
11794 


12936/M 
13081/M 


11727 


11628 
13130 
13081 
13124 


10838 
12122/P 
12504/P 
11472 
11551 
11925 


10738 
11877/M 


$649/M 


S=subscript, 


1989-08-21 13:33:34 

4307 4323 4342 5615 
7018 7220 7234 7246 
10440 
5545 6026 6028 7017 
7248 7256 7489 8662 
12410 
7794 7858 7919 7946 
8624 8636 8875 8886 
10660 10670 10777 10795 
11312 12049 12056 12058 
12704 13018 13232 13448 
6888 8383 8396 
6176 6218 
9608 11200 11207 12912 
7727 77283 S706 9706 
12774 12774 12882 12882 
9556 9556 ss85 9589 
$8790 9876 8$88&6& 9891/P 
10016 10329 10755 10811 
10934 10834 10844 10944 
10867 108935 11013 11028 
11056 11061 11081/P 11081 
11114 11114 11155/P 11160/P 
11574 11680 11681 11906 
12106 12106 12119/P 12122/P 
12243 12286 12302 12453 
12500/P 12504/P 12505 12548 
12715 12717 12717 12727 
13141 13238 13238 13262 

I=1/0 ref, Reread, Wewrite, 

1989-08-21 13:33:34 

13467/P 
12608/M 13186/M 
11805 11817 11847 11877 
11067 11336/M 11336 11354 
13466/P 13467/P 
10824/M 10927/M 10930/P 10839/P 
11061/M 11069/P 11071 11086 
11504 11516/P 11594 11596/P 
11626 11628 116293 11632 
11652 11659 11661 11662 
11734 11736 11737 11741 
11795 11833 11835 11836 
12936 12948/M 12948 12966/M 
13081 13138 
11791/M 11792 11793/M 11793 
13106 13108 13109 13115 
13125 13129 13131 13132 
10908/M 108315 
12127 
12509 
11482/M 11483 11528/M 11529 
115593/M 11560 11612/M 11613 
10755/M 106755 
11880/M 13385 

I=I/0O ref, Reread, Wewrite, 


PAGE 734 


Pzparameter 


PAGE 735 


P2parameter 


_ pass 


REFERENCES OF 


IDENTIFIER-------------------- 


pagenum 

pages freed behind 
pages from _queue 
pages from_server 


pages_in_ memory 
pages_not_in_memory 
pages _ prestream 
pages pulled 


pages reclaimed from_queue 


pages removed 
pages requested 


pages 
pages 
pages 
pages 
pages 
pages 


requested 
streaming 
to_ allocate 
to_be_ pulted 
to_read 


to_read 


paging statistics 


paging statistics 


count 
count. 
pass_one_count 
pass_three count 
pass two count 
passive fde op 
perf 

pf pages 


pass 


pf _ proc _ tables not_initialized 
pf recs 

pfte ijle_p 

pfte_p 

pfte_p 


pfte p 
pfte_p 
pfte op 


pfte p 
pfte op 


eet 


REFERENCES OF 


IDENTIFIER-------------------- 


pfte_ p 
pfte p 


pfte_p 


pfte_p 


pfte op 
pfte_p 


pfte_ p 
pfte_p 


pfte p 
pfte_p 


pfte_ p 
pft i 
pfti 
pft i 
pfti 
pfti 
pfti 
pfti 
pfti 
pft i 
pfti 


pfti 
pfti 
pfti 
pfti 
pfti 


pfti 


pfti 
pfti 


pfti 
pfti 
pfti 
pfti 
pfti 
pfti 
pfti 


Le 


mmm$page_faylt_ processor 


~ 


DEFINED 
ON LINE 
1939 
4252 
10579 
4863 


1860 
12060 
4248 
11291 


4861 


10580 
12694 


12901 

4249 
19802 
11292 
10783 
11293 


4837 


5346 


4306 
12900 
2175 
2177 
2176 
10803 
10282 
4267 


$532 
8548 
$673 
7869 
$128 


93223 
93259 
9375 


$667 
9764 


REFERENCE ABBREVIATIONS 


mmm$page_fault processor 


90393 
9121 
$228 
$258 


$357 
9376 


3745 
$942 


9942 


$952 


10089 
10197 


10271 
10281 
10428 
10443 
10515 
10581 
10659 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 1.0 881062 
----REFERENCES 

9649/M 

11924/M 11925 

10592/M 10594/M 10605/M 

11658/M 11659 11660/M 

13114/M 13115 13116/M 

8353 $423 10875 

121589/M 121793/M 12179 

11615/M 11616 

11575/M 11583 11584 

116860 

11631/M 11632 11633/M 

13121/M 13122 13123/M 

10603/P 

12714/M 12721 12739/P 

12857 12864 

1238329 128329 12374 

11612/M 11613 

10957/M 10959/M 10964/P 

11576/M 11883 11584/M 

1039323 10824 10956 

11506/M 11511/M 11513/M 

11595/P 11609/M 11609 

11625/M 11626 11631/M 

11726/M 11727 11733/M 

11832/M 11833 11851/M 

13114/M 13115 13121/M 

11627/M 11628 11633/M 

11725/M 11725 11735/M 

11834/M 11835 11853/M 

13116/M 13117 13123/M 

12731 12733 12733/P 

129398 

12734/M 12734 

12891/M 12891 

12736/M 12736 

11053/P 11105/P 

10323/M 10324 10324 

11737/M 11737 11744/M 

11855/M 11855 

gs656 11321 

11837/M 11838/M 

9685/P $693 9712/P 

7885 /M 7886 7886 

$130/M $135 3136 

9147/P $148/Ss 9150 

$158/s 9158 9162/M 

9183 91390/P 9198/M 

9231/M $231/S8 $232/S 

$311/M $314/M 9316/M 

9411/M 9412 $413 

9449 9454/M 

9$68a85/P 9698/P : 

$782/M 8$784/P $794 
Memodify, Azattribute, 


1.9 89102 
REFERENCES 

9:391/M $3ss2 3993/M 
10108/M 10109 10114 
10148 10162 
10325/M 10326 10327/P 
10344/5S 10345/S 10346/M 
10366/M 10366 10374/M 
10466/M 10467 10468/S 
10473 10474 
10550/M 10551/S 10553 
10708/M 10713/P 10732 
10740/M 10741/M 
11208/M 112093/M 11210/M 
11399/M 11338 11399 
11681/M 11681 11681 
12171/M 12172 12223/M 
12543 /M 12551 12551 
12611/P 12615/S 12628 
12641 12643/M 12644 
13076/M 13076 13076 
76S83/M 7694 7694 
7874/M 7884/M 7885/S 
79363/M 7965 7965 
8027 
8038 
8598/Ss 8539/8 
9095/M 9096 9$101/M 
9130/S $133 9194 
$233 $235 3237 
§9288/M $299 $304/M 
9313/P S3320/M $330 
9422/S 9422/8 
9384/M $394 $396/S 
9410 9410 9411/58 
9439/P 9456/M 
$782/S $9812/S 9817/S 
9372/M 99372 9972/M 
99388/M 9888 9988/M 
9976/M 9976 9976/M 
10063/M 10063 10063/M 
9972/P $373 9373 
9sg0 8891/S 10007/M 
10041 10045/P 10047/P 
10108/S 10149/P 10150/P 
10177/P 
10202/S 10208/S 10209/S 
10220/P 10221/P 10223/P 
10358 10361 
10342/M 10351 10358/P 
104783 
10461/M 10465 10465 
10547/M 10548 105493 
1053930/M 10601 10601 
106S86/M 106956 10696/M 

Memodify, Azsattribute, 


tTO605 
11661 
13117 
12111 
12194 


11608/M 


11634 
13124 


12756 


11002/M 
11674 
10959 
11515/P 
11622 
11632 
11734 
11852 
13122 
11634 
11736 
11854 
13124 
12744 


10325/5S 
11744 


9834 


Sssubscript, 


sss4/M 
10119/S 


10329 
10347/M 


10469/S 


10735/M 


11211/M 
11399 
11681 
12225/M 
12590/M 
12623 
12645 
13076 
7637/M 
7898/P 
79368/M 


9103/M 
9196 


9306 
9335/58 


94060 
9415 


9372 
9988 
$976 
10063 
9974/S 
10016/S 
10048/P 
10163/P 


10210/S 


10361/P 


10466/S 
10550/S 
10602/S 
10696/M 


Stsubscript, 


1989-08-21 13:33:34 
1O606 
11832/M 11833 11834/M 11835 
124931 
12196 12208 
11608 11622/M 11622 11674 
11733/M 11734 11735/M 11736 
12789/P 12800 12808/P 12814 
11014/M 11017/P 11032 
11574/M 11575 11885 11586/M 
11623/M 11677 11678/M 11683/P 
11648/M 116493 11658/M 11659 
11740/M 11741 11791/M 11792 
11884 11986/M 13105/M 13106 
13128/M 13129 13177 13179/M 
11650/M 11651 11660/M 11661 
11742/M 11743 117933/M 11793 
119806 11982/M 13107/M 13108 
13130/M 1313060 13173 13175/M 
12789/P 
10326/M 
117935/M 11795 11836/M 11836 
7889 7891 7892 7897/M 
$140 $142 9142/S $145/Ss 
$153/S 9153 9155 $156 
§168/M 9173/58 9174a4/S 9182/S 
920S/M 9218 
§235/S $237/S $238/S $238a/S 
§318/M 9320 
9428/M 9429/M 9434/8 $435 
9910/P 

I=I]/O ref, Rtread, Wewrite, 


9995/Ss 
10122/P 


10333 
10349 


10470/M 


10736/M 


11212/M 
11399 
11681 
12227/M 
12581/M 
12633/M 
12647 
13076 
7700/M 


7372/M 


9104 
9199 


$307 
9$336/S 


9401/5 
$421/P 
93972/M 
S976/M 
$975/S 
10019/M 
10050/P 
10165/P 


10215/S 


10376 


10479/P 
10552 
10603/P 
10696 


1211/0 


1989-08-21 


10006 
160130 


10334 
10353 


10871/M 


10737/M 


11213/M 
11399 
11681 


12602/P 
12635 
12651/S 
13076 
71702 


7974 


9105/P 
9307 
$337 
$403/P 
9422/P 
9872 
$976 
9976/P 
10029/P 
10053/P 
10166/P 


10216/P 


10378 


10483/M 
10553/M 
10604/M 
10696/P 


ref, 


13:33:34 
160028 10084 
10138/M 10133/M 
10341/M 10343 
10357 160360 
10472 10473/M 
10738/M 10739/M 
11214/M 11216/P 
11398 113939/M 
11681 11681/M 
126039/M 12610/M 
128636 12638 
12652/S 
13076 13076/M 

$309 9311/S 
§9338/S 

S405/M 9405/S 
8436/P 9437/P 
9988/M 9988 
10063/M 10063 
s9388/P 99390 
190030/P 10032/M 
10057/P 10063/P 
10168/P 10173/P 
10217/S 10218/P 
10380 10381 


Reread, Wewrite, 


P=p 


PAGE 736 


P=parameter 


PAGE 737 


arameter 


REFERENCES OF 


IDENTIFIER----- eee ee ee ee tee eee 
pFti 


aft i 


pfti 
pfti 
pfti 
pFti 
efti 


pfti 
pfti 


pFti 
pfti 


pfti 


oft 
pFft 
pFft 
pft 
yFt 
prt 
pFft 


ee a ee ee ee Te 2 


_first 


pfti_index 


pfti 
pfti 
aft i 
pfti 
poaFfti 
aftis 


of faulted page 
Size 
size 
size 
size 


pit 
PmcS$initialize_to_zero 
pmc$kill_task_flag 
pmc$mainframe_id_size 


omc$max_signal_contents 
pmc$max_task_id 


**EX 


REFERENCES OF 


IDENTIFIER------------ cece ee 


pmc$processor_model_number size 


pmc$processor_ serial _num_size 
pmt$binary_ mainframe_id 
pmtScondition_identifier 
pmtS$cpu_model number 
pmt$cpu_serial_number 
pmtS$initialization_value 
pmt$mainframe_id 

pmt $program_name 
pmt$sense_ switches 
pmtSsignal 
pmt$signal_contents 
pmt$signal_id 
omt$task_id 

pqie 


ogie 

pqie_p 

pr pf 

nreset 

preset pages 
preset _ streaming 

rreset value 
prestream_oniy 

prev pfti 
process _ memory _image_pf 
process virtual address 
pS_allocate_required_on_server 
ps_beyond file _ limit 
3S_done 


Ps_found_in_avail 
ps_ found _in_avail_modified 


Ps found _on_ disk 

fs found on_server 
ps_io_temp reject 
Ps_job_work_required 
Ps_ locked 

BSs_ low_on_memory 
ps_new_ page assigned 
pS_mo_extend permission 
as_ no memory 

pS_ pages 

Ps _pt_full 

Ps_read beyond eoi 
es _server_terminated 


xex 


mmm$page_fault_processor 


DEFINED 
ON LINE 


10671 


10788 


129068 


13001 
13015 
13235 
13294 
13326 
13454 

8313 


8314 


11295 
7678 
10271 
10428 
11282 
8316 


13351 
§688 
6264 
3506 
2308 
6082 


REFERENCE ABBREVIATIONS 


mmm$page_fault processor 


. 


DEFINED 
ON LINE 
3514 
3564 
3493 
1268 
3218 
3221 
5688 
3503 
4065 
5231 
2264 
2302 
2269 
60793 
4226 


73915 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 891602 
REFERENCES 

10680/M 10696/P 10697 
10746/P 107498 
10803/M 10850/P 10931/P 
11017/P 11020 11063/P 
11095/P 11096/M 11106/P 
11148/P 11179 11178 
11201 11203/M 11207/M 
11399/M 113939/M 11399/S 
11914 
11399/P 11S516/P 11596/P 
11801/S 11804/S 11813/S 
12317/M 12317 12317/M 
12170/M 12171/8 12222/M 
12314/S 12315/P 12316/P 
12548/M 12549/S 12577/P 
12752/M 12757/8S 12758/S 
12765/S 12766/S 12767/S 
12788 127939/M 12801/S 
12817 12817 12818/P 
12879/S 12880/S 12881/S 
12912/M 12914/M 12917/M 
12934/S 12935/S 12940/S 
12945/S 12985S9/S 12961/S 
13076/M 13076/M 13076/S 
13076/P 13079/P 
13245/P 13250/S 
13304/M 13305/P 13306/P 
13329/M 13332 13335/S 
13433/M 13440/S 
7681 7962 7963/S 
8038/S 9972 $372/Ss 
10489 11902/M 11914 
7694 7695 76S9S6/M 
7366 7967/M 7967 
$972/M 9972 9372/M 
$S76/M $9376 9976/S 
99388 9$88/s $388 
10063 10063 10317/M 
12317 12317/S 12317 
11599/M 11688 
7681/M 
103839/M 
10489/M 
11921/M 
7697 7963 7968 
ss72 $972 9376 
10473/M 11902 11902 
13356/M 13368 
$653/P 13248/P 
6280 
3503 
2302 
6078 

Mzemodify, Atattribute, 


1.0 8910602 
REFERENCES 

3506 3511 

3507 3561 

2606 5136 

1262 

3207 3214 

3208 3213 

5623 7051 7920 
2607 37391 

33893 

5147 

6249 

2266 

2241 2265 

5333 6074 

gsog5 93097 9098 
$231 $232 $9233/M 
9276 S276 3276 
9278 $298 $304 
$337/M 9470 9471/M 
10590 10532 10594 
10696 12207 12207 
10461 10462 10463 
10306/M 10318 10369 /M 
12003 

13247 

12230 12236 12281 
11459 11525 11526/M 
10941/P 10954/P 11023/P 
11471/M 11472 

13330/M 13335 13341/M 
10850 11232 

12708/P 12713/P 12714 
10955 11647 11849 
10853 11202 11769 
7877 10687 1098490 
11882 13076 13246 
7893 11220 11399 
13076 13120 

7835 11399 11630 
13120 

11108 11157 11624 
11108 11162 11657 
10970 10983 11167 
10835 11757 13102 
7888 113993 11610 
10827 11826 13083 
10943 11031 11072 
19837 11758 13039 
10683 11826 12235 
11629/M 116298 11635/M 
10722 11222 11822 
10838 11374 11756 
10974 10986 11171 

Memodify, Azattribute, 


10706/M 


10939/P 
11074 
11109 
11180/P 
11208/S 
11398/P 


11599 

11816/5S 
12317 

12223/S 
12317/P 
12602/P 
12758/S 
12767/S 
12802/P 
12819/S 
12882/S 
128293 

12941/S 
12865/S 
13076/P 


13338/S5S 


7986/M 
$988 
11914/M 
7696 
7968/S 
$972 
3976 
$388 
10460/M 
12317 


7333 
9388 
11802 


Szsubscript, 


8323 


sosés 
9235/S 
$276 
§$323/M 
9473/S 
10696 
13359/P 


10376/M 


12283 


12237/P 


12715 
13104 
13096 
109353 


11630 
11681 
11790 
11831 
411819 
11621 
11647 
13083 
11635 
12297 


11761 
T1381 


Sztsubscript, 


10706 


10942/S 
11092 


11681/P 
11840/S 
12317/M 
12229/P 


12611/P 
12760/M 
12769/S 
12803/P 
12820/P 
12884/S 
12929 

12942/S 
12977 


13341 


7995/M 
$988/S 
11914 
7697/S 
7971 
$972/S 
9376 
10063 
118902/M 


7394 
$388 
11914/M 


9101 
9237/M 
8276 
$323 
$476 
10696 


12282/P 


13110 
11399 
11681 
11732 
13127 
13113 
13086 
11681 
11739 
13255 
11652/M 
1308S 


130833 
11783 


I=1/0 


I=I/O ref, 


1989-08-21 


§103 
$238/M 
9277 
9331 
9478/M 
10696 


12835/P 


11518 
11732 


11860 


11807 
1183606 
11652 
13283 


13162 


1989-08-21 13:33:34 
10708/S 10713/P 10715/P 
10852/P 10978/P 10979/P 
11092 11093/P 11094/S 
11182/P 11183/M 
11219/S 
11681/M 11681/S 11681/P 
11684/P 11698/M 11706 
11846/S 11870/S. 11876/S 
12317 
12311/P 12313 12313 
12634/P 12642/P 
12760 12763/S 12764/S 
12772/P 12773/M 12773 
12805/M 12805 12815/M 
12821/M 12877 12878/S 
12885/P 
12830/M 12930 129334/S 
12943/S 12944/S 12944/S 
13342/M 13342/S 13344 

8036 8037/M 8037 
10317/M 10389 10460/M 
11914/5S 11921 

7639 7962/M 7965 

7985/M 7994/M 8036/M 

3972 9972 9976 

8388/M 99388 9988/M 
10063/M 10063 10063/S 
11914/M 12317 12317/M 

7395 8027/M 8038/M 
10063 10358/M 10361/M 
12317 
ref, R=read, Wsewrite, 


13:33:34 
$145 9188 
9238 $276 
$277 $278 
9332/M 9333/M 
9489/M 9489 
10696 10696 
11663 11681 
11960 11973 
11973 13076 
13076 
11973 13104 
11662/M 11662 


Reread, Wewrite, 


PAGE 738 


P=parameter 


PAGE 739 


Peparameter 


REFERENCES OF 


IDENTIFIER---------------+---- 
ps_valid_in_pt 


pPS_volume_unavailabie 
psc_nominal_queue 
pstatus 

pstatus 

pstatus 


pstatus 
pstatus 
pstatus 


pstatus 


pstatus 
pstatus 
pstatus 
pstatus 
pstatus 
pstatus of faulted page 
pstatus time 
psva 

pt full 

pt _fFull_aste op 
pt _ full osva 
pt_ length 


pt i 


pti 


xX 


REFERENCES OF 


IDENTIFIER-------------------- 


pti 

ptkS$aging_iji_ordinal 
ptk$aging job_fixed 
ptk$aging modified pages 
ptk$aging page number 
ptk$aging pages removed 
ptk$aging segment 
ptk$page_assigned_ijl 
ptk$page_assigned_pft i 
ptk$page_assigned_queue 
ptk$page_ fault gtid 
ptk$page_ fault_ijl 
ptk$page_fault_lower_offset 
ptk$page_ fault _p_lower_offset 
ptk$page_ fault p_ segment 
ptk$page_ fault _p_upper_offset 
ptk$page_ fault pfti 
ptk$page_fauilt segment 
ptk$page_ fault status 
ptk$page_fault_upper_offset 
ptk$per formance_base 


ptk$pfti_for_swapin 
pull_pages page streaming 
pva 

pva 

pva 


pva 
pva 


pva 
pva_destination 
pva_p 
pyva_source 


qcb 

qcb_p 

qcb_p 

qid 

queue count 
queue_id 


xX 


mmm$page_ fault_processor 


DEFINED 
ON LINE 
7912 


7915 
7790 
7861 
10666 
10787 


9548 


S766 


REFERENCE ABBREVIATIONS 


mmm$page_fault processor 


DEFINED 
ON LINE 
13448 
6711 
6720 
6723 
6708 
6726 
6705 
6699 
6666 
6669 
6654 
6702 
6657 
6651 
6648 
6693 
6660 
6645 
6663 
66S6 
1758 


6690 
11606 
4322 
5786 
5961 


11261 
11298 


13291 
4341 
89393 
4340 


13321 
$127 


12697 
13322 
$264 
1867 


REFERENCE ABBREVIATIONS 


ewoaeeweoeweeneneeee es awe wm 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.90 8983102 
REFERENCES 

7882 10724 1138s95 
11973 13076 
10947 1039372 11168 
12311/P 
7877/M 7882/M 7888/M 
10683/M 10687/M 10722/M 
10827/M 10837/M 10839/M 
10946 10943/M 10947/M 
10974/M 10983/M 10986/M 
11108 11108 
11148/P 11157/M 11162/M 
11202/M 11220/M 11222/M 
11399/M 11399/M 11399/M 
11681/M 11681/M 
11374/M 11378/M 11381/M 
11610 116106 11620 
11761 11934/S 11934/S 
12266/P 12295 12297 
128039/P 
13076/M 13076/M 13076/M 
13076/P 130739/P 13082 
13245/P 13246 13253 
11600/M 11697 
11838/M 
12270/M 12282/P 12286/M 
10719/M 11225/M 12606/M 
1O717/M 11223/M 12604/M 
10718/M 11224/M 12605/M 
9552/M 9577 s5397 
§8551/M 9580 $538 
8580/M 9581 9581 
sss9 gss9g 3601/M 
9613 $614 9644/M 
9650/M $652 
7880/M 7881 7884 
gsss5/M 99397/M $398/M 
10113/M 10120/M 10121/M 
10202/M 10206/M 10207/M 
10551/M 
11399/M 113989 113998 
12166/M 12167 12170 
12240/M 12241/M 
12547/M 12548 12555 
13076/M 13076 13076 
9142/58 9173/S 9174/S 
10118/S8S 10202/S 10344/S 
11025/S 11076/5S 11077/S 
12615/S 12651/S 12652/Ss 
9577/M 35739/M 9578 
9598 393600/M 9600 
9616 $623 9627/M 
9632/S 9634/M $634 
9847 9848/S 9851/5 

Memodify, Azattribute, 


1.0 891602 
REFERENCES 

13437 13439/S 
10334 ; 
10332 
10388 
10328 
10399 
10328 
9136 
9133 9415 
9134 9416 
11361 
11708 
11363 
11357 
11355 
11359 
11706 
11353 
11707 
11365 
6645 6648 6651 
6669 6672 6675 
6693 66S6 66s9 
6717 6720 6723 
6741 6744 6747 
6765 6768 6771 
6789 673832 67935 
6813 6816 6813 
6837 6840 6843 
6861 6864 
$308 
11606 11656 11671 
12070/P 12075/P 1208 1 
11805/M 11817/M 11847/M 
3009 3010 10900 
11356 11358 13464/P 
11350/M 11351 11353 
113S50/M 11351 11353 
11787 11805 11817 
132937/M 13300/P 13307/M 
12436/P 12441/P 12498 
3001/M 9002 9004 
12424/P 12429/P 
13323 13331 
9145/M 9148/M 9151/M 
$193 $194/M 9196/S 
12849/M 12850/S 12850 
13338 
$2S37/M $323 
7898/P 8831/M 8936/M 
10876 190876 11399/P 
12229/P 12484 12484 

Memodify, Azattribute, 


11610 
11378 


7833/M 
10724/M 
10850/P 
10952/P 
11017/P 


11167/M 
11399/M 


11399/P 
11681/P 
11939 


13076/M 
13110 
13255 


12286 


$609 
$601 
9581 
93603 
9645/M 


7899 /M 
1OO006 
10130 
10214 


11399/M 
12220/M 


12572 
13076/M 
$182/S 
160345/S 
11111/8 
12767/8S 
$580/S 
§$601/S 
9627 
9635 
$866 


Szsubscript, 


6654 
6678 
6702 
6726 
6750 
6774 
6798 
6822 
6846 


11686 
12092 
11877/M 
103905 
13465/P 
11362 
11362 
11847 
13307 


9013 


8156/M 
$138 
12851 


89353 
11681/P 
12627 


S:subscript, 


1989-08-21 13:33:34 

11621 11681 11757 11960 
11879 13102 
7895 /M 
10853/M 10931/P 109335/M 109339/P 
1060953 10955/M 10970/M 10972/M 
11031/M 11069/P 11072/M 11106/P 
11169/M 11171/M 
11389/M 11681/M 11681/M 11681/M 
11516/P 11518 11596/P 11600 
11684/P 11697/M 11707 11730 
119593 11972 12001 
13076/M 
9612 
9582 gs598/M $599 g599 
3603 9612/M $613 $613 
9646/M 9647/M $648/M 9649/M 
10008/M 10017/M 10018/M 10043 
10131/M 106161 
11681/M 11681 11681 11681/M 
12221 12222 12234/M 12238/M 
9434/S 9974/58 9375/58 s99s5/S 
10468/S 10469/S 108551/5S 10942/S 
11219/8 12284/S 122839/S 12314/S 
12836/S 12944/S 13250/S 
9584 9s597/M 9538/S 9599 
96093/M $611/M 9611 $612/S 
9628 9629/M 9629 9632/8 
9636/M 9652/S 9654/Ss 
9867/5 9870/58 

I-I/O ref, Reread, Wewrite, 


8160/M 
§199/M 
12852/M 


8954/M 
12099 
12634/P 


I=1/0 


1989-08-21 


13385 
11336/M 
13467/P 


11368/P 
11880 


9160 
8200/M 
12854/Ss 


8357 
12089 
12642/P 


ref, 


13:33:34 

6663 6666 
6687 6690 
6711 6714 
6735 6738 
6759 6762 
6783 6786 
6807 6810 
6831 6834 
6855 6858 
11336 11354 
T1766 11773 
9188/M 9191/M 
$200 

12855 12856/M 
8962/M 10746/P 
12190 12224 
13044 13044 


Reread, Wewrite, 


P=p 


PAGE 740 


P=parameter 


PAGE 741 


a@arameter 


REFERENCES OF mmm$page_fauilt_processor NOS/VE CYBIL/II 1.0 89102 1988-08-21 13:33:34 PAGE 742 

IDENTIFIER? 2 "2922s oe ee Sees DEFINED~----ee%-re rere eee REFERENCES 

ON LINE 
13045 13076/P 

queue _id 4170 7891 7832 9139 $140 9142 $145/S 9148/S $203/M 

i $231/S 9232/S $233/S 9235/58 $237/S $238/S 9238/S $318/M 
94239/M 9454/M 9853 $872 10215 113998 11399 11681 
11681 11912 12172 12628 12641 12787 12758 12763 
12764 12765 12801 12847 12878 12878 12880 12934 
12934 12940 12941 12942 12961 13076 13076 13338 

queue id 8807 8821/M 8823/M 8826/M 8828/M 8831 

queue_id 8872 8936/M 8936/M 8936/M 8936/M 8936 

queue id 9122 9134 $163 9164 $1790 9171 3173 9182 $188/S 
9191/S 9203 $204 $218 

queue _ id $262 9269 9270/S $271 $286 $287/S 9291/S 9292 9318 
$324/S 9325/S $327/S 9328/S $331/S $335/S 

queue_id 9377 9383 9384/S $385/S 9395 9462 9464/S 9465/S 9467/S 
9471/S 9473/58 9$475/S 9478/S 9479 9481/S 9482/S $483/S 
9485/S 9486/S 9487/S 

queue_id 10433 10491/P 10495 

queue_id 10583 10589 10590/S 10592/S 10594/S 10594/S 

queue_ status 7050 8931 

ri s495 8003 8834 8336 9024 

r2 5496 9021 9027 12281 

random faults 4253 11451/M 11452 

random faults 5548 11449 11450/M 11476/M 11476 11477 1148S/M 11691/M 

rb 12008 12011 12013/P 12016/P 

rho 12027 12064/M 12070/P 12070/P 12071 12075/P 12078/P 12081/P 12087/P 
12091 12091 12092 12095/P 12100/P 12118 12133/P 12138/P 
12142/P 12147/P 12148/P 12192 12198/P 12230 12236 12281 
12283 12298/P 12311/P 12321/P 12322 12329/P 12338/P 

rb 12388 12422/M 12424/P 12424/P 12425 12429/P 12432/P 12436/P 12436/P 
12437 12441/P 12444/P 12448 12448 124439/P 12453 124S54/P 
124539/P 12463 12464 12465/P 12472/M 12473/M 12475 12477 
12480/P 12485/P 12498 12515/P 12520/P 12524/P 12529/P 12530/P 
12543/P 125852/P 12556 12557/P 12560/M 12560 12567 12569 
12616/P 12654/M 12654 12656 

rb 12677 12707/M 12708/P 12708/P 127093 12713/P 12714 12714 12715 
T2724/P 12731 12733 12739/P 12742/P 12744 12789/P 12795/P 

. 12893/P 

ro 13002 T3021/M 13034 13034 13035 13036/P 13036/P 13037 13040/P 
13046/P 13051/P 13054/P 13054/P 13062 13062 13062 13063/P 
13063/P 13064 13067/P 13071 13071 13072 13094/P 13097/P 
13100/P ‘ 

iscount 9957 9962/M 10033/M 10033 10042/M 10042 10067 10070 

!rcount 10092 10110/M 10132/M 10140/M 

rcount 10288 10320/M 10340 10340 103S59/M 103598 10362/M 10362 10389/P 
10391 10392/P 10333 103389 

rcount 10442 10463/M 10465 10465 10480/M 10480 10489/P 10490 

rcount 10520 10554/P 

“recount 11299 11921/P 119322 11923/P 11925 

rcount 12698 12772/P 

read _pages_from_disk_or_server 11127 10930 11105 11186 

reason 8663 8668 8673 

“reason 9743 9891 $891 


* 3% REFERENCE ABBREVIATIONS Memodify, Azattrihute, Szsubscript, I:I/0O ref, Rzread, Wewrite, P:parameter 


REFERENCES OF mmm$page_fault_ processor NOS/VE CYBIL/II 1.0 8$102 1989-08-21 13:33:34 PAGE 743 
IDENTIFIER =: =<. See sso ses Seis DEF TP NED <!Fs~ Sess Se sie tesco eo REFERENCES 
ON LINE 

reason 10776 10934 10934 10944 10944 10967 10967 11037 11037 
11081 11081 11114 141114 

reclaim 4275 11635/M 11635 11737/M 11737 13125/M 13125 

reduce queue below_minimum 10582 10585/M 10591 10615 10618/M 

reject _move_if_ source modified 4344 12556 

reject_offset 12051 12113/M 12120/P 12123/M 12146/P 

reject_offset 12410 12493/M 12501/P 12505/M 12528/P 

relative transfer unit 11300 11394/M 11421 11421 11447 11458 11458 11834 11540 
11546 11549 11900 

remaining pages_to_assign 12053 12260/M 12262/M 12265/P 

‘remove_modified_page_from_ws 2049 10068/M 10068 10178/M 10180 

remove _unmodified page _from_ws 2048 1O0066/M 10067 10170/M 10171 

reqcode 4292 13034 13034 13062 13062 

requested length 4307 12714 

requested page_count 5098 12324/M 12364/M 

requested _ page count 120582 12081/M 12094 12111 12119/P 12122/P 12123 12163 12217 
12217 12242/M 12242 12258 12262 12292/M 12282 12324 

reserved _page_ count 5099 12208 12344 12345 12346/M 12365 12366/M 

reset _p_ register 13377 13406 

residence 1880 7278/M 7281/M 7338 7385 7840 8913 8922 8933 
$02s 9424 §435 9449 9686/M S686/M $795 10005 
10128 10327 11053 12884 

residence 7336 7338/M 7342 7343 

residence 7378 7385/M 7385 7385 

“residence 8872 8922/M 8922 8822 

mesidence 9942 1O005/M 10005 10005 

residence 10088 10128/M 10128 10128 

residence 10271 10327/M 10327 10327 

residence 10776 11053/M 11053 11053 

residence 12676 12884/M 12884 12884 

ring 2159 9002 9009 $010 10900 10905 11067 

se aing 8392 9002/M 9004 9008 9010/M 9021 9024 $027 

rma 1948 7884 9581 $581 9582 $598 $599 S603 $613 
$9613 9614 9650/M 9851 $870 113993 11681 11811 
12170 12222 12548 12583 13076 13439 

rma 13292 13300/P 13301 13304 

rma 13452 13462/P 13463 

rp 5493 $9021 

sac ip 11301 11760/M 11762/M 11764/M 11766/M T1I771/M 11772/M 11773/M 11785/M 
11786/M 11787/M 

save pfti 12699 128139/M 12821 12851/M 12855/5 

“scan_pft_for_pages 12899 12739 12789 12980 

sdt_offset $335 7808 8892 $014 $553 93694 13464 

sdt_p 8002 8005 8009 

Sat_p &795 8834 8834 

‘sdt_ 8872 &936 8936 

sdtx_offset S336 7820 8893 9015 $695 10883 13386 

search lcop 12828 12928 12837 12949 12367 12972 

'seg 2160 $013 $553/P 11327 11351 11353 11354 13464/P 

seg 7334 7341/M 7344/M 7350 

seg 7378 7385 /M 7385/M 7385 

(seg 8872 83822/M 8322/M 8322 


KEE 


REFERENCE ABBREVIATIONS 


M=modify, 


Azsattribute, 


Sssubscript, I=1/0 


ref, R=read, W:write, 


P=parameter 


REFERENCES OF mmm$page_fault processor NOS/VE CYBIL/II 1.0 89102 
EDENTI FA ERS St sie ec Se ae eee eee DEFINED--------+e eee eee REFERENCES 
ON LINE 
sfid $942 10005/P 
sfid 9942 10005 10005 
sfid 10088 10128/P 
sfid 10088 160128 10128 
sfid 10271 10327 10327 
sfid 10776 11053/P 
sfid 10776 110583 11053 
sfid 12676 12884/P 
sfid 12676 12884 12884 
sft$counter 4869 4838 4839 
Sft$file_ space_limit_kind 5770 5539 7223 
shadow_au_offset 10800 11051/M 11083 
sShadow_info 5538 10994 109985 
shadow length page _count 5728 10995 11056 
Shadow _reference_info 5353 11082/M .11084/M 
shadow _segment_kind 5730 10394 11067 
shadow, segment number 5732 11083 
Shadow_sfid 5729 11053/P 
shadow_start page number $727 11051 
smallest _maximum_working set 10521 10530/M 10532/M 
software _ attribute set 5535 8820 8822 
soon 4358 9143/M $143 
$442/™M 9442 
13186 
source _aste_p 12411 12423/P 12431 
source fde op 12412 12429/P 
source pti 12413 12541 12547/s 
source _pva 5775 11082/M 
source _queue_id 9261 $283/M 9$298/S 
$332/S 9333/S8 
source _ste_p 12414 124239/P 
source _ stxe_p 12415 12430/P 
source sva 12416 12429/P 12458 
specified 2332 9863/M 10056/M 
st 8336 13241 
stack_for_ring 7055 8007 8813 
10147/P 10907 
starting pfti 10663 10678 10680 
starting pfti 12700 12738/M 12739/P 
12794 12799 
12837/S 
starting pFfti 12802 12910 12917 
static _next_rma 9538 9568 9572 
static _stop_rma 9539 9568 9573 
statistics 45693 10294 10236 
11631/M 11632 
11733/M 11734 
11851/M 11852 
13105/M 13106 
13148 13150 
status 4293 13021/M 13036/P 
13087/P 13100/P 
status 4304 12707/M 12708/P 
*** REFERENCE ABBREVIATIONS M=modify, 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER---- +e - see eee ete rene DEFINED---++52+2 22222208 REFERENCES 
ON LINE 
seg $942 10005/M 10005/M 190005 
seg 10088 10128/M 10128/M 10128 
seg 10271 10327/M 10327/M 10327 
seg 10776 11053/M 11053/M 110653 
seg 11302 11354/M 11355 
seg 12676 12884/M 12884/M 12884 
segment 1263 11766/M 11773/M 11787/M 
segment access 8987 9021 9024 $027 
segment_ lock 7043 10006 10130 
segment number 8000 8006 
segment _number 8795 8834 
segment_number 8872 8336 
segment_tabie length 5924 8895 $018 
segnum 7270 7276/M 7277 7282/8 
segnum 7805 7808 
segnum 7817 7820 
segnum 8737 8814 8834/P 
segnum 8872 8892 
segnum 8872 8833 
segnum 8872 8936 8936/P 
“segnum 8885 &8890/M 8892/P 8&893/P 
segnum 8985 9014 
segnum g98e5s 9015 
segnum 8996 9013/M 9014/P $015/P 
segnum 9532 $553 
seanum 9665 9686/M 9686 9686/S 
segnum 9665 9694 
segnum 9665 9695 
segnum 13375 13386 
segnum 13381 13385/M 13386/P 13391 
segnum 13428 13464 
sequential accesses 5546 11420 11422/M 11424/M 
11473/M 11484/M 11507 
11856/M 
served file 9767 8810/M 9811 9854 
server 4277 11662/M 11662 11836/M 
set_assign_active 8850 8860 s698 10877 
set _page 13430 13444 13465 13466 
sfc$no_ limit 5770 10864 
sfid 1868 7839 8832/M 8826 
3795 10005/P 10128/P 
sfid 5532 8832 8913 8822/P 
sfid 7266 7285/M 
sfid 7326 7338 7339 71340 
sfid 7378 7385/P 
sfid 7378 7385 7385 7385 
sfid 7833 7839 7840 
sfid 8276 10849 
sfid 8872 8822/P 
sfid 8872 8322 8922 8922 
sfid 8872 8933 8933 
sfid 9665 9686/M 
sfid 9674 8686/P 9696 3703 
* x x REFERENCE ABBREVIATIONS Memodify, Azattribute, 


10005 


10128 
10327 


11053 


12884 
5148 
7247 

11106/P 

11051 


11086/M 


8$167/M 
9$494/M 


12609 


$300 
$337/S 


12463 
10176/M 


8834 
11922 
10695 
12741 
12808/P 


12975/M 
9617/M 
9618/M 

10297 

11648/M 

11740/M 

11945 

13114/M 

13151 

13037 


12708 


Atattribute, 


8895 


$018 


11424 - 
11508/M 


9873 
11836 
10899 
13467 

8333 
10327/P 

83926 

7351 


7385 


8322 


9715 


S=subscript, 


10005 


10128 
10327 


11053 


12884 
51506 
7287 


11053/P 


10543/M 
8336 
9167 
$4394 


12611/P 


9303/M 


12541 
11316/M 


8336 
11022 


12751 
12834 


12977/M 
$650 


10452 
11649 
11741 
11947 
13115 
13177 
13046/P 


12724/P 


S=subscript, 


1989-08-21 13:33:34 
83936/P 
11454 11454 11455/M 11455 
11508 11556 11690/M 11745/M 
9892 
13118/M 13118 
12146 12528 
83S36/M 9424 9435 $449 
190849 10964/P 12884/P 
8333/P 8936 9023 sS6Ss6 

Is:I/O ref, Reread, Wewrite, 


$151 
10796 


11056 


10548 

11505 
9186/M 

10054 


9312 


12610 
12873/M 


8336 
11774 


12751 
12834 


9651/M 


10454 

11658/M 
11791/M 
1171948 

13121/M 
131798/M 
13051/P 


12742/P 


I=I/o 


1989-08-21 


§153 


11067 


10548 
11897 

9186 
10174 


$323/S 


12611/P 
13027/M 


10026 
12281 


12752 
12835/S 
9651 
10455 
11659 
11782 
11984 
13122 
13063/P 
12795/P 


ref, 


13:33:34 
11083 
13391 
§$239/M $239 
10287 11894 
9323/8 $331/S 
126S7/M 12657 
10027/P 10146 
12788/M 12789/P 
12836/5 12837/M 
11625/M 11626 
11726/M 11727 
11832/M 11833 
11986/M 12305 
13128/M 13128 
13064 13094/P 
12893/P 


R=sread, Wewrite, 


P=p 


PAGE 744 


P=parameter 


PAGE 745 


arameter 


REFERENCES OF mmm$page_fault processor NOS/VE CYBIL/II 1.0 89102 1889-68-21 13:33:34 PAGE 746 
IDENTIFIER--ce--e ese ee te tee eee DEFINED--- etree ett eee ee REFERENCES 
ON LINE 

status 4319 12064/M 12070/P 12071 12078/P 12081/P 12087/P 12095/P 12100/P 
12133/P 12138/P 12142/P 12147/P 12148/P 12198/P 12298/P 12321/P 
12329/P 12338/P 

status 4339 12422/™M 12424/P 12425 12432/P 12436/P 12437 12444/P 12449 /P 
12454/P 12459/P 12465/P 12480/P 12485/P 12515/P 12520/P 12524/P 
12529/P 12530/P 12543/P 12552/P 12557/P 12616/P 

status 7714 7728/P 

status 7747 7752/P 

Status 8066 80639/M 8070/M 

status 8387 13392 

status 8985 9005/M 9005/M 9019/M 9019/M 9023/M 9023/M 9026/M 9026/M 
9028/M 9028/M 9031/M 9031/M 

Status 8988 8998/M §$005/P 9019/P 9023/P 9026/P 9028/P 9031/P 

Status 90587 9066/P 9067 

status 9675 3700/P 9704/P 9716/P 

status 9768 §$893/P 9895/P $898 9901 9903 gsg905 9905 9907 
99093 

status 10805 10878/P 109803/P 10965/P 10966 10869 109693 10971 10973 
11087/P 

status 11143 11156/P 11161/P 11164 11166 11166 11168 11170 

status 12026 12078/M 12078/M 12081/M 12081/M 12087/™M 12087/M 12095/M 1209S/M 
12100/M 12100/M 12133/M 12133/M 12138/M 12138/M 12142/M 12142/M 
12148/M 12148/M 12198/M 12198/M 12298/M 12298/M 12321/M 12321/M 
12329/M 12329/M 12338/M 12338/M 

status 12387 12432/M 12432/M 12444/M 12444/M 12449 /M 12449/M 12454/M 12454/M 
12459/M 12459/M 12465/M 1246S5/M 12480/M 12480/M 12485/M 12485/M 
12515/M 12515/M 12520/M 12520/M 12524/M 12524/M 12530/M 12530/M 
12543/M 12543/M 12552/M 12552/M 12557/M 12557/M 12616/M 12616/M 

status 12676 12724/M 12724/M 12742/M 12782/M 12795/M 12795/M 12893/M 1283833/M 

status 12676 12770/P 12882/P 

status 1289398 1Z2946/P 

status 13001 13046/M 13046/M 13051/M 13051/M 13094/M 13094/M 13097/M 13097/M 
13100/M 13100/M 

status 13222 13254/M 13254/M 13256/M 13256/M 

status 13226 13237/M 13252/P 13254/P 13256/P 

status 13288 13296/M 

status 13383 13399/P 13403/P 

ste 5464 8005 8009 8772 8772 8826 8826 8834 8834 
8836/M 8895 83819 8336 8336 8336 8336 83836/M 
8939/M 8362 8962 9018 9021 9021 9024 9025 
9027 9554 9696 11510 11510 12281 13241 13434 
13435 

ste_p 8769 8772 8772 

ste_p 8795 8826 8826 

ste_p 8798 8826/P 8834/P 8&836/M 8837/M 

ste_p 8872 8336/P 8936/P 8936/M 8936/M 

ste_p 8872 8936 8936 83862 8962 

ste_p 8878 8&892/M 8835 8919 8926 8336/P 89339 /M 8940/M 8962/P 

ste_p 8994 9014/M 9018 9021 9021 9024 9025 9027 

ste_p 9062 so69/P 

ste_p 9537 8553/M g554 

ste_p 9676 9694/M S696 

ste_p 11303 11368/P 115106 11510 


xxx REFERENCE ABBREVIATIONS Memodify, Azattribute, S:subscript, I:1/0 ref, Rtread, Wewrite, P:parameter 


REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 747 
IDENTIFIER--c cet ee tre ee etree ne DEFINED------++rree2 2225 REFERENCES 
ON LINE 

ste_p 12054 12075/P 12281 

step 12701 12713/P 

step 13008 13040/P 13067/P 

ste op 13431 13434 13435 

ste_p 13453 13464/M 13465/P 13466/P 13467/P 

Stic_allocation 5314 10901/M 

stop rma 9541 $573/M 9576/M 9581 9$608/M 9613 9614/M 9618 

stream 5540 11388 11391 11382/M 11420 11422/M 11424/M 11424 11449 
11450/M 11454 11454 11455/M 11455 11459 11467 11473/M 
141476/M 11476 11477 11484/M 11485/M 11486/M 11507 11508/M 
11508 11525 11526/M 11527 11531/M 11545 115856 11558/M 
11611 11690/M 11691/M 11692/M 11745/M 11856/M 

streaming 5549 11467 11486/M 11527 11531/M 11545 11558/M 11611 11692/M 

streaming_transfer_ pages 11304 11387/M 11389 11506 118574 11575 11576 11678 

streaming _transfer_unit 11305 11389/M 11390 11393 11555 11572 11752 11753/M 11754 
11863 11864/M 11865 11901 

strn 69390 7004 

strng 6986 6989 

stxe_p 8739 8820 8822 8832 

stxe_p 8851 8854 8855/M 8857/M 

stxe_p 8872 8936 83936 8936 

stxe_p 8879 8893/M 8913 8922/P 8826 8933/P 8336/P 

stxe_p 8995 9015/M 9029 

stxe_p 9063 9069/P 

stxe_p 9665 9698 9698/M 9698/M 

stxe _p 9677 8695/M S696 9697 9698/P 

stxe_p 10776 10877 10877/M 10877/M 108993 108339/M 10889/M 

stxe_p 10781 10835 10836 10867 10877/P 10883 108339 /P 10965/P 10994 
10994 10995 11051 11053/P 11056 11067 11083 

stxe_p 11306 11368/P 11375 11376 11379 11388 11391 11392/M 11420 
11422/M 11424/M 11424 11449 11450/M 11454 11454 11455/M 
11455 11459 11467 11473/M 11476/M 11476 11477 11484/M 
11485/M 11486/M 11505 11507 11508/M 11508 11515/P 11525 
11526/M 11527 11531/M 11545 11556 11558/M 11595/P 11611 
11683/P 11690/M 11691/M 11692/M 11745/M 11856/M 11897 

stxe_p 12026 12146 12146/M 12146/M 

stxe_p 12055 12075/P 12076 12077 12080 12120/P 12146/P 

stxe_p 12387 12528 12528/M 12528/M 

stxe_p 12702 12713/P 

stxe_p 13009 13040/P 13041 13067/P 13068 13078/P 

stxe_p 13380 13386/M 13391 

Sub _reqcode 4320 120171 

sva 2196 $885/M 10962/M 11182/M 

sva 4178 8598/P $205/M 9314/M $401 9412 9422/P 9428/M $698/P 
$834 10016 10028 10122/P 10148 10208/P 10329 10738/M 
11211/M 12591/M 12610/M 12835/P 

Sva 7858 7873 

sva 8041 8046 

sva 8550 11837/M 

sva 8624 86293 

sva 8636 8641 

sva 8885 8919/M 8920/M 8324 8366/M 8974 

sva 9056 $o69/P 

exe REFERENCE ABBREVIATIONS Memodify, Aztattribute, Stsubscript, I:1/0 ref, Rtread, Wswrite, P=parameter 


REFERENCES OF mmm$page_ fault processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34, PAGE 748 
IDENTIFIER--*-<-- - ee er eee eee ~ -DEFINED-----+e--+-"----- -REFERENCES 
ON LINE 

sva SS36 3554/M 9555/M S556/M S556 $623 9648 $649 9$653/P 

sva 3770 $834/M $835 9839 $840 3860 9861/M 9878 $885 
$893/P $895/P 

sva 10088 10122 

sva 10136 10208 

sva 10660 10688 

sva 10785 10810/M 10811/M 10811 10834 10848 10850/P 10877/P 10886/P 
10888/P 10899/P 10918 10919 10920 109830/P 10830/P 10934/P 
10938 10933/P 10941/P 10944/P 10952/P 10954/P 10962 10964/P 
10965/P 10967/P 10895 11004 11004 11012 11017/P 11023/P 
11028/M 11028 11037/P 11050 11054/M 11069/P 11081/P 11085 
11105/P 11114/P 

sva 11130 11148/P 11152 

sva 11191 11200 11207 11211 11216/P 11224 

sva 11282 11399 11681 

Sva 11307 11368/P 11390 11382 11399/P 11515/P 11540 11573 11574 
11595/P 11754 11865 11899 11937 

sva 12026 12319 

sva 12086 12075/P 12094 12106/M 12106 12107 12113 12119/P 12122/P 
12123 12216 12311/P 12319/P 

sva 12387 12666 

sva 127903 12713/P 12716 12717 12808/P 

sva 13001 13076 

sva 13018 13040/P 13054/P 13054/P 13067/P 13076/P 13078/P 13141/M 13141 

Sva 13232 13238/M 13241/M 13243/P 13245/P 13248/P 13262/M 13262 

Sva 13448 13435/M 13436/M 13437 

sva_current 11308 11573/M 11680/M 11681/P 11683/P 

Sva_of last _page 12418 12477/M 

sva_start 11309 11572/M 11574 11680 

Swap_status 4538 7724 $838 12770 12882 12946 12960 

Swapout_ job 5097 12325/M 12363/M 

swapped _job_entry $252 8270 $287 

syc$ic disk _error 6370 13397/P 

syc$mf_for_keypoint_traceback 6105 10337/P 

syc$rc_advise_in 3364 13062 

syc$rc_advise_out 3365 13034 

syc$rc_advise_out_in 3366 13034 13062 

syc$ucr_ condition 6166 6177 

syc$user_defined_ condition 6167 6179 

system_ijle_p 12419 12470/P 12637/M 12637 12646/M 12646 

system_table_lock_count 5319 10825 10900 10907 13395 

Syt$180_idite_ code 6352 4493 8087 

Syt$monitor_ flag 6101 6086 8130 8155 

Syt$monitor_flags 6086 5307 8391 

sytSmonitor_ request code 3343 3306 4292 4303 4318 4338 64395 

syt$monitor_status 3331 3307 42393 4304 4319 4338 6496 7224 7237 
7482 7494 ‘TT4aT T7773 8066 8156 8988 9057 
$675 $768 10441 10805 11143 12417 13226 13288 
13383 

Syt$perf_keypoints enabled 6868 8583 8583 

syv$perf_keypoints enabled 8583 9132 $308 9414 10322 10336 10397 11382 11705 

Syv$recovering job_count 8585 10524 

syv$refs_ to_unrecovered_ seg 8586 8914/M 8914 $O030/M 8630 

x es REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, I21/0 ref, R=read, W-write, Ptparameter 
REFERENCES OF mmm$page_fault_processor NOS/VE CYBIL/II°1.0 89102 1989-08-21 13:33:34 PAGE 749 
IDENTIFIER------- ne ee see eee ss = DEF UNED «5 ose <2 ~ccce-- “REFERENCES 
ON LINE 

task _created_after  last_swap 4578 10536 

task_queue 4174 10732 11804/P 11816/P 11846/P 11876/P 

task_slow 4250 11550/M 11551 

taskid 4481 8815 8936 10878/P 10903/P 11087/P 11767/P 11781/P 11788/P 
11804/P 11816/P 11827/P 11846/P 11876/P 121487/P 12529/P 

taskid 9125 $219/P 

taskid $378 9512/P 

taskid 13417 13420/P 

tasks _not_in_long wait 4841 12305 

terminated 4247 11482/M 11483 

test_sva 12704 12716/M 12717/M 12722 12727/M 12727 

time_last_ modified 7052 $89s/M 

time _spent_in_job_mode 4824 10294 10237 10452 104S5 11945 11948 13148 13151 

time spent_in_mtr_ mode 4825 10296 10454 11847 13150 

_tmc$broken_task_fault_id 6122 6144 

tmc$btc_invalid_ao 6192 6213 

tmc$btc_invalid_p 6192 6213 

tmc$btc_ mcr traps _ disabled 6133 6214 

tmc$btc mf_traps_disabled 6192 6212 

tme$btc_mntr_fault_buffer_ full 6191 6212 

tme$btc_system_error 6194 6208 

tme$btc_ucr_ traps disabled 6193 6214 

tme$dummy_ fault 6123 6150 

tmc$filag available 31 6277 6281 

tmc$maximum_monitor faults 6127 6118 

tmc$maximum_signais 6257 6254 

tmc$maximum_system_task_id 6290 6293 

tmc$mer_ faut 6122 6146 

tmce$signal_available_ 63 2300 2311 

tmc$stid_null_task 62396 6233 

tmc$ts_ first _external_queue 3591 13392 

tmc$ts_io_wait_not_queued 3608 3590 

tmc$ts_ memory _ wait 3610 11827/P 

tmc$ts_ page wait 3610 3591 11804/P 11816/P 11846/P 11876/P 

tmc$ts_ready 3595 3586 

tmc$ts_timed_wait_not_queued 3602 3589 

tmc$ts_ timeout _reqexp_longviong 3600 3588 

tmc$ts_timeout reqexp shortshrt 3599 3587 

tmc$ts_volume_unavai labile 3611 13383/P 

tmp$cause_ task_switch 8098 11820 11824 11966 11974 12134 12516 12825 13084 
13087 13091 13166 13169 

tmp$clear_ lock 7581 7563 7594 77293 $706 $719 127706 12774 12882 
12886 12946 

tmp$dequeue_ task 8101 $219 9512 13420 

tmp$get top _of_ stack 8116 10027 10147 

tmp$get_xcb_p 8122 9712 

tmp$monitor_ flag job_tasks 8129 160337 

tmp$queue task 8137 11804 11816 11827 11846 11876 13383 

tmp$reissue_ monitor request 8144 12826 13407 

tmp$send_monitor_ fault 8147 11767 11781 11788 

tmp$set_ lock 7617 7556 TESS 7727 $706 $719 12770 12774 12882 
12886 12946 

*** REFERENCE ABBREVIATIONS Mtmodify, Atattribute, S=tsubscript, I1:1/0 ref, Reread, W:write, P:parameter 


REFERENCES OF 


IDENTIFIER--------- weet c ese 
tmp$set monitor _filag 


«tmp$test_get_xcb_p 
tmt$broken_task_condition 
tmt$broken_task_monitor_fault 
tmt$dispatch_contro] 
tEmt$duail_state_priority_entry 
tmt$find_next_xcb state 
tmt$fnx_search_type 

tmtS$idie_ status 

tmt$mer_ faults 
tmt$monitor_ fault buffer 
tmt$monitor_ fault _buffers 
tmt$monitor_fault_identifiers 
tmt$primary_task_list 
tmt$primary task_list_entry 
<mt$pti_filags 

tmt$pt 1_ lock 

tmt$signal 

tmt$signal_buffer 
tmt$signal_buffers 
tmtS$system_flags 
tmt$system_task_id 
tmt$task_queue_1ink 


tmt$task status 
tmt$wait_ inhibited 
tmt$xcb_ offset size 
tmv$pt 1_ lock 


tmv$ptil_p 

tos 

tos 

total contig pages_assigned 
total_pages_ freed 
‘total _pages_needed 
total _pages_removed 
transfer_size 
transfer_unit_count 
trap_enable 

trick ptr 
trim_pages 

trim _to swap _ size 
tu__end 

tu_start 
tu_to_stream 
two_passes 


u 


untranslatable pointer 
tupdate _eoi_reason 


xX 


REFERENCES OF 


IDENTIFIER----------- weceeeeee 


valid pages _in_memory 
verify _ pages removabie 
vi 


waitopt 

wire eoi_page 
working set _max_used 
wp 


write multiple pages 
write status 


write status 

write status 

write status 

ws_device_ manager reject 
ws_no_file assigned 

WS_ OK 
wS_physical_io_reject 

ws server terminated 

ws volume unavailable 


x_asid 
x _asid 
xasid 
xasid 
xasid 
“asid 
xasid 
xasti 
xasti 
xcb op 


“cb op 
xcb_ p 
xcb op 
xcb_p 
xcb_ p 


xx 


mmm$page_ fault processor 


DEFINED 
ON LINE 
8154 


8160 
6191 
6205S 
6382 
6397 
6882 
6880 
3613 
6230 
6112 
6118 
6121 
8a800 
8382 
8406 
7605 
6247 
6239 
6254 
6260 
6293 
4205 


3595 
8413 
8404 
7641 


8366 
$950 
10096 
8502 
$379 
10574 
10436 
5547 
11310 
5893 
11258 
12087 
10512 
9772 
9771 
11311 
10587 


1945 


5329 
10806 


REFERENCE ABBREVIATIONS 


mmm$page_ fault processor 


DEFINED 
ON LINE 


1943 


12059 
12755 
5491 


4325 
7069 
4865 
5494 


$773 
9749 


$954 
10099 
12705 
$740 
93739 
$739 
$739 
$740 
$740 


8709 
8872 
8594 
8726 
&748 
$357 
13222 
&708 
8872 
4486 


T8O4 
7816 
8872 
8872 
8985 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


7881 

9613 
10131/M 
11681 
12615/M 
12158/M 
12755 

8895 


12322 
10015 
11980 
8005 
11510 
9$838/M 
$785/M 
$814/S 
$918/S 
10057/P 
10177/P 
12885/P 
3902 
3785 
9900 
$796 
93908 
9906 


&8720/M 
8938/M 


7807 


Memodify, 


1.0 89102 
REFERENCES 

3700 9704 
13403 

9684 

6207 

6145 

4488 

4475 6394 
8110 

6883 8107 
8389 

6147 

5344 

6113 6114 
6143 6219 
8366 

8400 

8393 

7581 7617 
6242 

5345 

6240 6241 
5320 8392 
5311 

4174 7162 
8580 

6385 8138 
8408 

8385 

7556/P 7563/P 
12770/P 12770/P 
12946/P 12946/P 
13392 13396 
10027/P 10028 
10147/P 10148 
12864/M 12864 
9381/M 8496/M 
10609 

10491/P 10493/M 
11388 

11524/M 11532/M 
10905 11066 
11298 

12181/M 12193/M 
10535 

9836/M 9864 
9835/M 9836 
11554/M 11556 
10587 10610 
9646/M 9975/M 
10468 10469/M 
8553/P 9555 
11033/M 11035/M 

Mzmodify, 


1.0 883102 


7899/M 

9644/M 
10206/M 
11681/M 
12651/M 
12168/M 
12761 

9018 


10838 
11982/M 
8772 


9854 
9786/S 
93900/M 


$311 


$813 


8893/P 
10826 
10907 
11328/P 
11627/M 
11725/M 
11805/M 
11880/M 
13108 
13163 

7808 

7820 

88382 

8893 

9014 


$716 


6115 


7641 


6242 


8101 


8387 


7727/P 
12774/P 


10031 
10151 


9496 


11547/M 
13387 


9864 
9844 


10616 


9998/M 
12240/M 
11327 
11037/P 


Azattribute, 


9174 

9654/M 
10942/M 
12167 
12836/M 
12168 
12775 

9696 


11984 
8826 


$873 
9786/S 
§$302/M 


$904 


8895 
10883 
11066 
11336/M 
11628 
11725 
11817/M 
11881/P 
13116/M 
13173 


Aztattribute, 


10878 


8139 


8388 


7729/P 
12774/P 


9510 


11557/M 


9844 
10619 
10018/M 


11328/P 


S=subscript, 


9434/M 

9974/M 
11025/M 
12221 
13076 


12782 


11986/M 
8834 


$796/M 
$904/M 


9003S 
10900 
11067 
11336 
11633/M 
11735/M 
11834/M 
11863/M 
13117 
13175/M 


S=subscript, 


109803 


83390 


9706/P 
12882/P 


$510 


11576 


10121/M 


11350 


IT=1/0 


9581 

3997/M 
11076/M 
12234/M 
13076/M 


12783 


13173 
83936 


9797/S 
9906/M 


$010 
10900 
11082/M 
11350 
11634 
11736 
11835 
11963 
13123/M 
13363 


T21/o0 


1989-08-21 13:33:34 
11087 12147 12529 
8531 8531 8580 
3706/P 9719/P 9719/P 
12882/P 12886/P 12886/P 
$511/M 9511 
10207/M 10344 10345/M 
11999/M 
ref, Rtread, W-=write, Pzp 
1989-08-21 13:33:34 
95939 95998 $603 
10008/M 10017/M 10120/M 
11219/M 11399 11399/M 
12241/M 12289 /M 12314/M 
13250/M 
13175/M 13177 13179/M 
839365 83962 39025 
9737/S $813/M 9814/S 
9908/M 9911/M 9918/S 
9014/P 9015/P 9018 
10901/M 10905 10905 
11084/M 11086/M 11321/P 
11354 11356 11358 
11650/M 11651 11660/M 
11742/M 11743 11783/M 
11847/M 11853/M 11854 
11980 11982/M 11899/M 
13124 13130/M 13130 
13460 13461 
ref, Reread, Wewrite, P=p 


PAGE 750 


arameter 


PAGE 751 


arameter 


